R/getmeans.R

In dawai: Discriminant Analysis with Additional Information

Defines functions getmeans

Documented in getmeans

getmeans <-
function(data, factors)
{
    groups <- levels(as.factor(factors))
    means <- array(NA, c(length(groups), dim(data)[2]))
    for(i in 1:length(groups))
        means[i,] <- apply(data[factors == groups[i], , drop = FALSE], 2, mean)
    colnames(means) <- colnames(data)
    return(means)
}

Try the dawai package in your browser