mydata <- ISLR::Default
mydata$ID = seq(1:nrow(mydata)) ## make the ID variable
mydata$default<-ifelse(mydata$default=="Yes",1,0) ## Creating numeric binary target variable
binned <- BinProfet(mydata, id= "ID", target= "default", num.bins = 5) ## Binning variables
WOE_dat <- WOEProfet(binned, "ID","default", 3:5) ## WOE transformation of bins
md <- glm(default ~ student_WOE+balance_WOE+income_WOE, data=WOE_dat$WOE, family="binomial")
summary(md)
Score_dat <- ScorecardProfet(object=WOE_dat, id="ID", target="default", GLModel=md,
PDO = 50, BaseOdds = 10, BasePts = 1000, reverse = FALSE)
Score_dat ## Less points means more likely to default
Run the code above in your browser using DataLab