#Regression example
## Not run:
# #generate Friedman data
# set.seed(11)
# n = 200
# p = 5
# 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
# bart_machine = bartMachine(X, y)
#
# ##make predictions on the training data
# y_hat = predict(bart_machine, X)
#
# #Classification example
# data(iris)
# iris2 = iris[51 : 150, ] #do not include the third type of flower for this example
# iris2$Species = factor(iris2$Species)
# bart_machine = bartMachine(iris2[ ,1:4], iris2$Species)
#
# ##make probability predictions on the training data
# p_hat = predict(bart_machine, X)
#
# ##make class predictions on test data
# y_hat_class = predict(bart_machine, X, type = "class")
#
# ##make class predictions on test data conservatively for ''versicolor''
# y_hat_class_conservative = predict(bart_machine, X, type = "class", prob_rule_class = 0.9)
# ## End(Not run)
Run the code above in your browser using DataLab