# NOT RUN {
# load germancredit data
data(germancredit)
dt <- germancredit[, c("creditability", "credit.amount", "purpose")]
# binning
bins <- woebin(dt, y = "creditability")
# converting original value to woe
dt_woe <- woebin_ply(dt, bins=bins)
# }
# NOT RUN {
# binning for germancredit dataset
bins_all <- woebin(germancredit, y="creditability")
# converting the values of germancredit into woe
germancredit_woe <- woebin_ply(germancredit, bins_all)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab