# NOT RUN {
GBM.params = gbm_params(n.trees = 2, interaction.depth = 4, shrinkage = 0.1,
bag.fraction = 0.5, train.fraction = 0.7,
n.minobsinnode = 30,
cv.folds = NULL, best_iter = TRUE, method = "cv")
gbm_filter(dat = UCICreditCard[1:1000,c(8:12,26)],
target = "default.payment.next.month",
occur_time = "apply_date",
GBM.params = GBM.params
, vars_name = FALSE)
# }
Run the code above in your browser using DataLab