suppressMessages(library(PDtoolkit))
data(loans)
#create risk factor priority groups
rf.all <- names(loans)[-1]
set.seed(6422)
rf.pg <- data.frame(rf = rf.all, group = sample(1:3, length(rf.all), rep = TRUE))
rf.pg <- rf.pg[order(rf.pg$group), ]
head(rf.pg)
res <- stepRPCr(start.model = Creditability ~ 1,
risk.profile = rf.pg,
p.value = 0.05,
db = loans)
summary(res$model)$coefficients
res$steps
head(res$dev.db)
Run the code above in your browser using DataLab