## Not run:
# #generate Friedman data
# set.seed(11)
# n = 150
# p = 100 ##95 useless predictors
# X = data.frame(matrix(runif(n * p), ncol = p))
# y = 10 * sin(pi* X[ ,1] * X[,2]) +20 * (X[,3] -.5)^2 + 10 * X[ ,4] + 5 * X[,5] + rnorm(n)
#
# ##build BART regression model (not actually used in variable selection)
# bart_machine = bartMachine(X, y)
#
# #variable selection via cross-validation
# var_sel_cv = var_selection_by_permute_cv(bart_machine, k_folds = 3)
# print(var_sel_cv$best_method)
# print(var_sel_cv$important_vars_cv)
# ## End(Not run)
Run the code above in your browser using DataLab