# NOT RUN {
dat = UCICreditCard[1:1000,c(2,4,8:9,26)]
xgb_params = list(nrounds = 100, max_depth = 6, eta = 0.1,
min_child_weight = 1, subsample = 1,
colsample_bytree = 1, gamma = 0, scale_pos_weight = 1,
early_stopping_rounds = 10,
objective = "binary:logistic")
# }
# NOT RUN {
xgb_features = xgb_filter(dat_train = dat, dat_test = NULL,
target = "default.payment.next.month", occur_time = "apply_date",f_eval = 'ks',
xgb_params = xgb_params,
cv_folds = 1, ex_cols = "ID$|date$|default.payment.next.month$", vars_name = FALSE)
# }
Run the code above in your browser using DataLab