Я должен исправить незавершенную функцию Rfun (), но мне не удалось найти все проблемы.
Rfun(N){ A=matrix(0,nrow=50,ncol=300) t=c(0:30,0:-30) for(j in 1:50) x=N[j,] y=cumsum(x) for(i in 1:300){ A[j,i]=y[i]/3 } } return(A) }
Ну, так как вы не уточнили, что должна делать функция, позвольте мне помочь вам с тем, что мне кажется ложным:
Rfun = function(N){}
return(A)
t