cvfold.R (crossvalidation to decide the number of basis to be used) update