Warning: file_get_contents(/data/phpspider/zhask/data//catemap/6/codeigniter/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
无法解决R中的简单If-Else函数错误_R - Fatal编程技术网

无法解决R中的简单If-Else函数错误

无法解决R中的简单If-Else函数错误,r,R,我只是想获得一些关于如何在R中编写函数的知识。我创建了一个简单的If-else函数,它基本上在函数调用中接受数字输入 如果用户给出n=1,将创建iris数据帧,并为任何其他编号mtcars df1<-iris df2<-mtcars run<-function(n){ if(n==1){ data1<-df1 } else { data1<-df2 } } run(1) df1C_Z_说了什么 df1<-iris df2<-

我只是想获得一些关于如何在R中编写函数的知识。我创建了一个简单的
If-else
函数,它基本上在函数调用中接受数字输入

如果用户给出
n=1
,将创建iris数据帧,并为任何其他编号
mtcars

df1<-iris
df2<-mtcars
run<-function(n){
  if(n==1){
   data1<-df1
  } else {
    data1<-df2
  }
}

run(1)
df1C_Z_说了什么

df1<-iris
df2<-mtcars
run<-function(n, df1, df2){
  if(n==1){
   data1<-df1
  } else {
    data1<-df2
  }
return(data1)
}

df1您需要返回函数的结果使用
return(data1)
数据您也应该使用
run