# NOT RUN {
model <- br(toyml, "RANDOM")
pred <- predict(model, toyml)
# }
# NOT RUN {
# Use SVM as base algorithm
model <- br(toyml, "SVM")
pred <- predict(model, toyml)
# Change the base algorithm and use 4 CORES
model <- br(toyml[1:50], 'RF', cores = 4, seed = 123)
# Set a parameters for all subproblems
model <- br(toyml, 'KNN', k=5)
# }
Run the code above in your browser using DataLab