library(SPARTAAS)
data(datacerardat)
res = cerardat_estim_nf(datacerardat$df, datacerardat$col.sup, datacerardat$date)
#Number of axes to keep (minimal PRESS value)
res$nf
#the plots
res$MSE
res$PRESS
res$adj.R_sq
Run the code above in your browser using DataLab