R 中的函数:不允许多参数

如何解决R 中的函数:不允许多参数?

我正在尝试为我的经理创建一个函数,根据土壤中的微生物量化土壤的质量。我会大声说出不同土壤微生物种类的名称,然后我会得到总质量的近似值,最终结果取决于土壤类型,有四类。到目前为止,这就是我所做的(将物种更改为 a、b、c、d 和 e,以便更容易理解)

soil_index <-function(comm,Type) {
  comm$score <- case_when(comm[,1]=="a" ~ 4,comm[,1]=="b" ~ 4,1]=="c" ~ 4,1]=="d" ~ 5,1]=="e"~ 3,TRUE ~ NA_real_ )
                               
index <- sum(comm$score)
CR<- case_when(Type=="T01" ~ 4,Type=="T02" ~ 9,Type=="T03" ~ 6,Type=="T04" ~ 3,TRUE ~ NA_real_)
EQR<- index/CR
return(index,EQR)}

最终结果将是分数的总和以及分数的总和除以参考条件 (CR)。当我运行它时,我收到错误消息:返回错误(索引,EQR): 不允许多参数返回

解决方法

单个对象只能returned。但是,我们通过将其包装在 list 中来创建单个元素,这也将确保对象类型得到维护。有一个命名列表也可能很有用,这样我们也可以按名称提取 ($index,$EQR)

soil_index <-function(comm,Type) {
  comm$score <- case_when(comm[,1]=="a" ~ 4,comm[,1]=="b" ~ 4,1]=="c" ~ 4,1]=="d" ~ 5,1]=="e"~ 3,TRUE ~ NA_real_ )
                               
index <- sum(comm$score)
CR<- case_when(Type=="T01" ~ 4,Type=="T02" ~ 9,Type=="T03" ~ 6,Type=="T04" ~ 3,TRUE ~ NA_real_)
EQR<- index/CR
return(list(index = index,EQR = EQR))
}

-测试

out <- soil_index(dat,Type)
out$index
out$EQR
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

其他编程问答

如何捕获不存在的属性的错误?示例: const arr = [ { neighbours: [➯G', ɼNG'], },]; 现在,当我试图访问一个可能存在也可能不存在的属...
在setState上,我收到以下TS错误: “类型ɺxiosResponse‘缺少类型’countries[]‘的以下属性:长度、pop、push、concat和26 more.ts(2740)”...
我是typescript的新手,正在尝试为Typescript构建一个react样板。但无法导入格式为“.tsx”的组件。 我的tsconfig文件如下所示: { "compilerOption...
当我在VS代码中使用Jupyter Notebook时,我遇到了一个问题。屏幕显示"Python 3.7.8 requires ipykernel to be installed“。我按照弹出窗口的...
我正在尝试输入一个形状为( 1,8,32,32,32 )的5D张量到我写的VAE: self.encoder = nn.Sequential( nn.Conv3d( 8, 16, 4...
在控制器中: RefreshController refreshController = RefreshController(initialRefresh: false); @overrid...
我试图构建我的安卓应用程序有一段时间了,似乎找不到任何解决这个问题的方法:Image Unity版本: Unity 2020.3.21f1 (64位) JDK、SDK、NDK和Gradle是Unit...
我正在尝试测试selenium,以获得自动登录网站的解决方案,但我甚至无法让Selenium保持打开状态。它做它现在应该做的事情,然后在没有driver.quit()的情况下立即退出。我得到了以下错...
我正在尝试开发一个springboot/react应用程序,并且已经安装了react并创建了react项目。但是,当我尝试执行以下命令时: npm run 我得到以下错误: Lifecycle sc...
我有大约5e9 (15e4记录每小时)记录存储在clickhouse中。这些记录是按时间顺序的。当我以10分钟的time_range运行某个查询时: select * from table_name...
Could not load library cudnn_cnn_infer64_8.dll. Error code 126Please make sure cudnn_cnn_infer64_8...
我正在和gatsby一起创建一个新项目 gatsby new YourProjectName2 https://github.com/Vagr9K/gatsby-advanced-starter 并...