虚拟变量逻辑回归到分数

时间:2021-01-23 08:49:21

标签: r dummy-variable scoring

我有一个逻辑回归模型,其中所有变量都是虚拟的 (0-1)

如何将模型的系数转换为 SCORES? (我需要分数)

(经典方法都包括 binning - woebin 技术,但我这里不做 binning,因为我已经有了虚拟变量)

DF <- data.frame(
  Column1 = c(0,0,0,0,0,1,1,1,1,1), 
  Column2 = c(1,1,1,0,0,0,1,1,1,0),
  Column3 = c(1,1,1,0,0,0,0,0,0,0),
  TARGET = c(1,1,1,0,0,0,0,0,1,0)
)

log_model = glm(TARGET~. , family = "binomial", data = DF)

谢谢!

1 个答案:

答案 0 :(得分:0)

查看 here 并尝试将其应用于您的数据,也许它会有所帮助:

DF <- data.frame(
  Column1 = c(0,0,0,0,0,1,1,1,1,1), 
  Column2 = c(1,1,1,0,0,0,1,1,1,0),
  Column3 = c(1,1,1,0,0,0,0,0,0,0),
  TARGET = c(1,1,1,0,0,0,0,0,1,0)
)

log_model = glm(TARGET~. , family = "binomial", data = DF)

library(scorecardModelUtils)
DF$Y <- sample(0:1,size=nrow(DF),replace=TRUE)
x <- c("Column1","Column2","Column3")
iv_table_list <- iv_table(base = DF,target = "Y",num_var_name = x, cat_var_name = "TARGET")
num_cat <- num_to_cat(base = DF,num_woe_table = iv_table_list$num_woe_table)
scaling_tab <- scalling(base = num_cat,target = "TARGET",model = log_model)