if (FALSE) {
data("germancredit")
dt = var_filter(germancredit, y = 'creditability')
bins = woebin(dt, y = 'creditability')
dt_woe = woebin_ply(dt, bins)
perf1 = perf_cv(dt_woe, y = 'creditability', no_folds = 5)
perf2 = perf_cv(dt_woe, y = 'creditability', no_folds = 5,
seeds = sample(1000, 10))
perf3 = perf_cv(dt_woe, y = 'creditability', no_folds = 5,
binomial_metric = c('ks', 'auc'))
}
Run the code above in your browser using DataLab