问用apply找出7个常数的最优值？

EN

   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)