# 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 2 cores
pred <- predict(model, toyml, probability = FALSE, CORES = 2)
# Passing a specif parameter for SVM predict algorithm
pred <- predict(model, toyml, na.action = na.fail)
# }
Run the code above in your browser using DataLab