# NOT RUN {
# Predict SVM scores
model <- mbr(toyml)
pred <- predict(model, toyml)
# Predict SVM bipartitions
pred <- predict(model, toyml, probability = 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