我正在尝试将最终correcttot函数从for循环更改为套用，但在尝试使套用函数df将要应用其的数组中的基础值遇到问题。
correcttot<-function(v,p,r){
df<-expand.grid(i=1:10,j=1:10,k=1:10,l=1:10,m=2:10,n=2:10,o=1:10))
df$correct3<-0
df$correct3<- apply(df, 1:7, function(x)
percentcorrect((x$i)/10,(x$j)/10,(x$k)*20,(x$l)*20,x$m,x$n,x$o,v,p,r)
)
df$correct3
}
newvec2<-correcttot(v,p,r)
的第二个参数apply不是列号，而是维数。您的数据框只有两个维度：行（1）和列（2）。
为了进行分析，请将第二个参数设置为1，表示您要将函数应用到每一行。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句