powered by
auc(obs, fit, plot = FALSE)
obs <-rbinom(30, 1, 0.5) fit <- rbeta(30, 1, 2) auc(obs, fit)
Run the code above in your browser using DataLab