R/mmean.R

mmean <-
function(x,est=tmean,...){
center<-NA
if(is.list(x))center=lapply(x,est,...)
if(is.matrix(x))center<-apply(x,2,est,...)
center
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.