# NOT RUN {
# Fit many alternative algorithms to the mushrooms dataset
mushrooms.cart.pred <- comp.pred(formula = poisonous ~.,
data.train = mushrooms[1:100,],
data.test = mushrooms[101:nrow(mushrooms),],
algorithm = "cart")
mushrooms.rf.pred <- comp.pred(formula = poisonous ~.,
data.train = mushrooms[1:100,],
data.test = mushrooms[101:nrow(mushrooms),],
algorithm = "rf")
mushrooms.svm.pred <- comp.pred(formula = poisonous ~.,
data.train = mushrooms[1:100,],
data.test = mushrooms[101:nrow(mushrooms),],
algorithm = "svm")
# }
Run the code above in your browser using DataLab