# NOT RUN {
# generate data
# example probablities
df <- data.frame(a = rep( seq(0,1,by=0.1), times=9))
# example ground truth values
df[,'b'] <- (runif(99,0,1)*df[,'a']) > 0.5
# prepare vectors
pred <- df[,'a']
labels <- df[,'b']
# generate the AUC
auc = generateAUC(predictions = pred,
labels = labels,
aucType = 'SS',
plotFlg = TRUE,
allCutoffsFlg = TRUE)
# }
Run the code above in your browser using DataLab