Я пишу код для вычисления суммы, но у меня есть функция, состоящая из 3 переменных
Я попробовал все применить функцию и уменьшить функцию g до 2 переменных:
g<-function(x,y,z){
res<-((x-((y*z)/sum(x))^2)/((y*z)/sum(x)))
return(res)
}
lapply(A,FUN=g,apply(A,1,sum),apply(A,2,sum))