# generate some fake data
classes <- round(runif(20, min = 0, max = 1))
# fake probability that point i is in the positive class
scores <- runif(20, min = 0, max = 1)
b <- getAucEstimate(classes, scores)
print(b)
Run the code above in your browser using DataLab