# NOT RUN {
params <- MakeModelDefaults(n = nrow(USArrests),
p = ncol(USArrests[, -1]), classify = TRUE, nfolds = 10)
params$Forest$mtry <- ncol(USArrests[, -1])-1
params
cml <- ModelTrain(USArrests, models = "RF", nsplits = 3,
user.params = params)
# }
Run the code above in your browser using DataLab