Last chance! 50% off unlimited learning
Sale ends in
data("Tecator")
names(Tecator)
y<-Tecator$fat
X<-Tecator$absor.spectra
#length(theta)=6=order.Bspline+nknot.theta
projec(X,theta=c(1,0,0,1,1,-1),nknot.theta=3,nknot=20,range.grid=c(850,1050))
Run the code above in your browser using DataLab