Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library("pROC")
- lin_mod <- glm(y ~ p + q, family = "...", data = dat_sd)
- prob <- predict(lin_mod, type = c("response"))
- plot(roc(dat_sd$y, prob), print.auc = TRUE)
- library("pROC")
- lin_mod <- 0.3 - 0.07 * data$p + 0.11 * data$q
- predict(model1, type = c("response"))
Add Comment
Please, Sign In to add comment
