powered by
fdata2pc(fdataobj,norm=TRUE,ncomp=2)
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