EVA_uebungen/ue01/.ipynb_checkpoints/sum1-checkpoint.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)
}