R/medcurve.R

medcurve <-
function(x){
#
# returns the median curve for functional data
#
chk=FBplot(x,plot=FALSE)
if(length(chk$medcurve)==1)est=x[chk$medcurve,]
if(length(chk$medcurve)>1)est=apply(x[chk$medcurve,],2,mean)
est
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.