powered by
fdata.cen(fdataobj,meanX=func.mean(fdataobj))
fdata
fdatobj
data(phoneme) mlearn<-phoneme[["learn"]][13:15,] fdata.c=fdata.cen(mlearn)$Xcen par(mfrow=c(1,2)) plot.fdata(mlearn,type="l") plot.fdata(fdata.c,type="l")
Run the code above in your browser using DataLab