- maxcompete = 0,
- maxsurrogate = 0,
- usesurrogate = 0,
- xval = 0,
- surrogatestyle = 0,
- maxdepth = 30)
- r <- rpart(target ~ ., df, method="class", control=ctrl)
+ xval = 0)
+ method <- ifelse(task == "classification", "class", "anova")
+ r <- rpart(target ~ ., df, method=method, control=ctrl)