R/winmean.R

winmean <-
function(x,tr=.2,na.rm=TRUE){
if(na.rm)x=elimna(x)
winmean<-mean(winval(x,tr))
winmean
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.