if (FALSE) {
# Computationally intensive
data(milk)
X <- milk$spectra[,-1]
y <- milk$spectra[,1]
optimWizard(X,y)
# Retrieve optimisation
myResults <- getOptimRes()
# After optimisation is complete
plotOptim(myResults)
}
Run the code above in your browser using DataLab