Nothing
bartMachineArr = function(bart_machine, R = 10){
arr = list()
arr[[1]] = bart_machine
for (i in 2 : R){
arr[[i]] = bart_machine_duplicate(bart_machine)
}
class(arr) = "bartMarchineArr"
arr
}
predict_bartMachineArr = function(object, new_data, ...){
R = length(object)
n_star = nrow(new_data)
predicts = matrix(NA, nrow = n_star, ncol = R)
for (r in 1 : R){
predicts[, r] = predict(object[[r]], new_data, ...)
}
rowMeans(predicts)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.