Использование применяется, чтобы найти оптимальный из 7 констант?

Question

Я пытаюсь изменить окончательную функцию correcttot из цикла for для применения, но у вас возникли проблемы при попытке получить функцию apply, чтобы взять базовые значения в , массив, к которому я буду применять его.

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, указав, что вы применяете функцию к каждой строке.