如何解决do.call 错误,提供的元素比要替换的元素多用 rlang::invoke 修复[R]
在将参数列表(只有一个用于简化)传递给 do.call
时,我收到一个奇怪的错误......它可以通过使用 rlang::invoke
来修复,但我想了解什么是发生在这里。谢谢。
> mydata <- source("https://pastebin.com/raw/bL8ZHvbt")$value
f <- as.formula(paste0("Surv(OS,Death) ~ ",paste(colnames(mydata)[-c(7:8)],collapse = " + ")))
> SurvBoost::boosting_core(formula = f,data = mydata,rate = 0.1)
$call
SurvBoost::boosting_core(formula = f,rate = 0.1)
$coefficients
Double_positive_CD4p_CD8dim TCD4p_CM_CD127low_PD1n TCD4p_CM_CD127low_PD1p TCD4p_CM_CD127p_CD25p_PD1n TCD4p_CM_CD127p_PD1n
0.15576408 -0.03984465 -0.22904226 -0.03556506 -0.15901050
TCD4p_EM_CD127low_PD1n
0.04126120
> do.call(SurvBoost::boosting_core,c(list(formula = f,data = as.data.frame(mydata)),list(rate = 0.1)))
Error in names(output)[[1]] <- data_name :
more elements supplied than there are to replace
> rlang::invoke(SurvBoost::boosting_core,list(rate = 0.1)))
$call
.fn(formula = `1`,data = `2`,rate = `3`)
$coefficients
Double_positive_CD4p_CD8dim TCD4p_CM_CD127low_PD1n TCD4p_CM_CD127low_PD1p TCD4p_CM_CD127p_CD25p_PD1n TCD4p_CM_CD127p_PD1n
0.15576408 -0.03984465 -0.22904226 -0.03556506 -0.15901050
TCD4p_EM_CD127low_PD1n
0.04126120
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。