powered by
rocplot(logistic.model,diag=TRUE,pred.prob.labels=FALSE,prob.label.digits=3,AUC=TRUE)
model.glm <- glm(formula=income>5930.5 ~ education + women + type, family=binomial(),data=Prestige,na.action=na.omit) rocplot(model.glm)
Run the code above in your browser using DataLab