```
# NOT RUN {
# }
# NOT RUN {
# simulate a PLS regression model
test <- data.frame(ncomp = 1:5,
RMSE = c(3, 1.1, 1.02, 1, 2),
RMSESD = .4)
best(test, "RMSE", maximize = FALSE)
oneSE(test, "RMSE", maximize = FALSE, num = 10)
tolerance(test, "RMSE", tol = 3, maximize = FALSE)
### usage example
data(BloodBrain)
marsGrid <- data.frame(degree = 1, nprune = (1:10) * 3)
set.seed(1)
marsFit <- train(bbbDescr, logBBB,
method = "earth",
tuneGrid = marsGrid,
trControl = trainControl(method = "cv",
number = 10,
selectionFunction = "tolerance"))
# around 18 terms should yield the smallest CV RMSE
# }
# NOT RUN {
# }
```

Run the code above in your browser using DataLab