powered by
fdata2pc(fdataobj, ncomp = 2,norm = TRUE,...)
fdata
(rotation)
fdataobj
n= 500;tt= seq(0,1,len=101) x0<-rproc2fdata(n,tt,sigma="wiener") x1<-rproc2fdata(n,tt,sigma=0.1) x<-x0*3+x1 pc=fdata2pc(x)
Run the code above in your browser using DataLab