如何利用R 求变量IV woe 和合理分箱

如何利用R 求变量IV woe 和对变量合理分箱 会用到什么package 和代码,求教!

1. woe_iv = function(bin, events, nonevents) {
   
2.    total_events = sum(events)
   
3.    total_nonevents = sum(nonevents)
   
4.    event_dist = events / total_events
   
5.    nonevent_dist = nonevents / total_nonevents
   
6.    woe = log(nonevent_dist / event_dist)
   
7.    iv = sum((nonevent_dist - event_dist) * woe)
   
8.    list(woe = data.frame(bin=bin, woe=woe), iv = iv)
   
9. }

复制代码

调用例子

1. bin = c("21-30", "30-36", "36-48", "48-60")
   
2. events = c(206, 357, 776, 183)
   
3. nonevents = c(4615, 9909, 32150, 12605)
   
4. woe_iv(bin, events, nonevents)

复制代码

结果：

1. $woe
   
2.     bin         woe
   
3. 1 21-30 -0.55303887
   
4. 2 30-36 -0.33876692
   
5. 3 36-48  0.06178536
   
6. 4 48-60  0.57013283
   
7. 
   
8. $iv
   
9. [1] 0.1093199

复制代码

支持支持

还是木有人来回答

zzf159476 发表于 2017-8-20 22:05
自己对着定义写一套就可以。印象里好像R有计算IV的函数

是什么package?

install.packages("InformationValue")

gongzhonghao 大数据风控的一点一滴，里面有