12 lines
166 B
R
12 lines
166 B
R
sum1 <- function(m) {
|
|
res = 0
|
|
|
|
for(i in 1:dim(m)[1]) {
|
|
for(j in 1:dim(m)[2]) {
|
|
res <- res + m[i,j]
|
|
}
|
|
}
|
|
|
|
return(res)
|
|
}
|