data("compas")
glm_compas <- glm(Two_yr_Recidivism ~ ., data = compas, family = binomial(link = "logit"))
y_prob <- glm_compas$fitted.values
y_numeric <- as.numeric(compas$Two_yr_Recidivism) - 1
gm <- group_matrices(compas$Ethnicity,
y_prob,
y_numeric,
cutoff = list(
Asian = 0.45,
African_American = 0.5,
Other = 0.5,
Hispanic = 0.5,
Caucasian = 0.4,
Native_American = 0.5
)
)
gm
Run the code above in your browser using DataLab