# NOT RUN {
# Predict SVM scores
model <- brplus(toyml, "RANDOM")
pred <- predict(model, toyml)
# }
# NOT RUN {
# Predict SVM bipartitions and change the method to use No Update strategy
pred <- predict(model, toyml, strategy = 'NU', probability = FALSE)
# Predict using a random sequence to update the labels
labels <- sample(rownames(toyml$labels))
pred <- predict(model, toyml, strategy = 'Ord', order = labels)
# Passing a specif parameter for SVM predict method
pred <- predict(model, toyml, na.action = na.fail)
# }
Run the code above in your browser using DataLab