R/maggiore.n.R

"maggiore.n" <-
function(x)
{
    mx <- x[1]
    for (i in 2:length(x)) {
        if (x[i]>mx) mx <- x[i]
    }
    return(mx)
}
masspastore/ADati documentation built on April 18, 2024, 5:55 p.m.