R/wmean.cov.R

wmean.cov <-
function(x,tr=0){
#
# Compute Winsoriced mean and covariance for data in x
#
loc=apply(x,2,mean,tr=tr)
cv=wincov(x,tr=tr)
list(center=loc,cov=cv)
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.