powered by
AUC(sens, spec)
se.temp <- c(0, 0.5, 0.5, 1) sp.temp <- c(1, 0.5, 0.5, 0) AUC(se.temp, sp.temp)
Run the code above in your browser using DataLab