library(MASS)
library(LOGIT)
data(R84)
R84$cage <- R84$age - mean(R84$age)
R84$cdoc <- R84$docvis - mean(R84$docvis)
mylogit <- glm(outwork ~ cdoc + female + kids + cage + factor(edlevel),
family=binomial, data=R84)
summary(mylogit)
ROCtest(mylogit, fold=10, type="Sensitivity")
ROCtest(mylogit, fold=10, type="ROC")
Run the code above in your browser using DataLab