# NOT RUN {
model <- br(toyml, "RANDOM")
pred <- predict(model, toyml)
# }
# NOT RUN {
# Predict SVM scores
model <- br(toyml, "SVM")
pred <- predict(model, toyml)
# Predict SVM bipartitions running in 4 cores
pred <- predict(model, toyml, probability = FALSE, CORES = 4)
# Passing a specif parameter for SVM predict algorithm
pred <- predict(model, dataset$test, na.action = na.fail)
# }
Run the code above in your browser using DataLab