# NOT RUN {
# Example of how to get CV AUC and plot the curve.
library(cvAUC)
library(ROCR) #load example data
data(ROCR.xval)
out <- cvAUC(ROCR.xval$predictions, ROCR.xval$labels)
#Plot fold AUCs
plot(out$perf, col = "grey82", lty = 3, main = "10-fold CV AUC")
#Plot CV AUC
plot(out$perf, col ="red", avg = "vertical", add = TRUE)
# See the ci.cvAUC documentation for an example
# of how to use the `folds` argument.
# }
Run the code above in your browser using DataLab