在R - 转换为循环应用和sapply

Question

我有一些嵌套的for循环但是我很难将第一个（和/或第二个）for循环转换为apply和sapply。我想要使​​用apply和sapply转换一些代码（我不想为此使用cumsum）。有没有人知道如何转换它。

m <- array(runif(100,1,10),dim=c(4,5,10))
result <- array(NA,dim=c(dim(m)))


for(k in 1:10) {
for(n in 1:4) {   
for(j in 1:ncol(m)) {
for(i in 1:nrow(m)) {
result[n,j,k] <- sum(m[n:i,j,k]) 
break} 
}
}
}

这是我尝试过的，但不知何故卡住了。

apply(m,3,function(x) 
for(n in 1:4) {   
for(j in 1:ncol(m)) {
for(i in 1:nrow(m)) {
result[n,j,x] <- sum(m[n:i,j,x]) 
break} 
}
}
})

感谢您的任何建议。