使用 apply 找到 7 个常数的最佳值？

Question

我正在尝试将最终的 correcttot 函数从 for 循环更改为 apply，但是 运行 在尝试让 apply 函数获取 [=] 中的基础值时遇到了问题12=]，我将把它应用到的数组。

   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)

Answer 1

apply的第二个参数不是列号，而是维数。您的数据框只有两个维度：行 (1) 和列 (2)。

为了您的分析，将第二个参数设置为 1，表示您正在将函数应用于每一行。