Create multiple bagging trees and capture each RSME in order to graph the reduce in variance

bagging.R

errors <- vector()
for ( i in seq(from = 1, to = 50) ) {
  print(paste('Bagging with',i,'trees'))
  ames_bag_i <- bagging( formula = Sale_Price ~ ., data=ames_training, nbagg = i, control = rpart.control(minsplit = 2, cp = 0))
  errors <- c(errors, ames_bag_i$err) 
}
error_df <- as.data.frame(errors)
error_df$n_trees <- 1:nrow(error_df)

ggplot(data = error_df, aes(x = n_trees, y = errors)) + geom_line()