# NOT RUN {
dat = UCICreditCard[1:1000,c(2,4,8:9,26)]
xgb_features <- xgb_filter(dat_train = dat, dat_test = NULL,
target = "default.payment.next.month", occur_time = "apply_date",
cv_folds = 1, ex_cols = "ID$|date$|default.payment.next.month$", vars_name = FALSE)
# }
Run the code above in your browser using DataLab