R计算IV

参考文章

#读取文件
rawdata = read.csv("/path/to/csv/file/credit.csv",header=T)
# colnames(rawdata)[18] <- "y"     //重命名因变量y

#数据分区 训练集测试集
trainIdx <- sample(nrow(rawdata), round(0.6*nrow(rawdata)))
traindata <- rawdata[trainIdx,]
validdata <- rawdata[-trainIdx,]
# nrow(traindata)

# binning cutoff calculation
library(smbinning)
V1bin=smbinning(df=traindata, y="application_approved", x="credit_score", p=0.05)
V1bin$ivtable
V1bin$bands