library(AUC)
#Assuming that we already have a list of probabilities and labels
AUC = auc(roc(Predicted$probabilities, TestData$correctLabels)
print(AUC)