data(ozone)
## Use half of the observations for demonstration
set.seed(27695)
train.id <- sort(sample(1:nrow(ozone),ceiling(nrow(ozone)/2)))
cossoObj <- cosso(x=ozone[train.id,2:5],y=ozone[train.id,1],nbasis=50)
plot.cosso(cossoObj,plottype="Path")
plot.cosso(cossoObj,M=2,plottype="Functionals")
Run the code above in your browser using DataLab