# NOT RUN {
formula <- as.formula(medv ~ lstat)
# load data
data("BostonHousing", package = "mlbench")
mobforest_controls <-
mobforest.control(ntree = 1, mtry = 2, replace = TRUE,
alpha = 0.05, bonferroni = TRUE, minsplit = 25)
out <- bootstrap(i, data = BostonHousing, main_model = string.formula(formula),
partition_vars = partition_vars <- c("rad", "crim", "tax"),
mtry = 2, new_test_data = as.data.frame(matrix(0,0,0)),
mobforest_controls = mobforest_controls, fraction = 1,
model = linearModel, family = "", prob_cutoff = .5)
out
# }
Run the code above in your browser using DataLab