\begin{Schunk}
\begin{Sinput}
 library(pROC)
 bl5roc <- roc(model.frame(bushlogit5)$bushvote, logitpred)
 bl5roc
\end{Sinput}
\begin{Soutput}
Call:
roc.default(response = model.frame(bushlogit5)$bushvote, predictor = logitpred)

Data: logitpred in 349 controls (model.frame(bushlogit5)$bushvote 0) < 426 cases (model.frame(bushlogit5)$bushvote 1).
Area under the curve: 0.957
\end{Soutput}
\end{Schunk}
