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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.