# \donttest{
set.seed(42)
df <- data.frame(
age = rnorm(500, 40, 15),
income = rgamma(500, 2, 0.0001),
score = rnorm(500, 600, 100),
target = rbinom(500, 1, 0.2)
)
result <- obwoe(df, target = "target")
# IV ranking chart
plot(result, type = "iv")
# WoE profile for specific feature
plot(result, type = "woe", feature = "age")
# Bin distribution
plot(result, type = "bins", feature = "income")
# }
Run the code above in your browser using DataLab