maxMfor <- function(M) {
    Nlinhas <- dim(M)[1]
    Ncolunas <- dim(M)[2]
    meuMax <- M[1,1]
    for (i in 1:Nlinhas) {
        for (j in 1:Ncolunas) {
            if (meuMax < M[i,j]) {
                meuMax <- M[i,j]
            }  
        }
    }
    return(meuMax)
}