# NOT RUN {
# Load German credit data
data(germancredit)
# Example I
dt = germancredit[, c("creditability", "age.in.years", "credit.amount")]
bins = woebin(dt, y="creditability")
breaks_adj = woebin_adj(bins, dt, y="creditability")
bins_final = woebin(dt, y="creditability",
breaks_list=breaks_adj)
# Example II
binsII = woebin(germancredit, y="creditability")
breaks_adjII = woebin_adj(binsII, germancredit, "creditability")
bins_finalII = woebin(germancredit, y="creditability",
breaks_list=breaks_adjII)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab