# NOT RUN {
# Load German credit data
data(germancredit)
dt1 <- germancredit[, c("creditability", "credit.amount")]
# binning
bins1 <- woebin(dt1, y="creditability")
# binning plot
p1 <- woebin_plot(bins1)
# }
# NOT RUN {
bins <- woebin(germancredit, y="creditability")
plotlist <- woebin_plot(bins)
# save binning plot
for (i in 1:length(plist)) {
ggplot2::ggsave(
paste0("./", names(plist[i]), ".png"), plist[[i]],
width = 15, height = 9, units="cm" )
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab