R/mean.center.R

Defines functions mean.center

mean.center <-
function(m){
  if (!('matrix' %in% class(m)))
    m <- as.matrix(m)
  for (i in 1:ncol(m))
    m[,i] <- m[,i] - mean(m[,i])
  return(m)
  
}
BANOVAapp/BANOVA_R documentation built on May 3, 2021, 6:30 a.m.