
Call:
roc.default(response = aSAH$outcome, predictor = aSAH$wfns, percent = TRUE,     quiet = TRUE)

Data: aSAH$wfns in 72 controls (aSAH$outcome Good) < 41 cases (aSAH$outcome Poor).
Area under the curve: 82.37%
