# NOT RUN {
# load ggplot2 and the diamonds data set
data(diamonds, package = "ggplot2")
# Create a logistic regression models
fit <- glm(I(price > 2800) ~ cut * color, data = diamonds, family = binomial())
qroc(fit)
# }
Run the code above in your browser using DataLab