# NOT RUN {
model <- cc(toyml, "RANDOM")
pred <- predict(model, toyml)
# }
# NOT RUN {
# Predict SVM bipartitions
pred <- predict(model, toyml, prob = FALSE)
# 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