# NOT RUN {
set.seed(2019); test1 <- list(annot=cbind(spec=c(rep("b",35),letters[sample.int(n=3,
size=150,replace=TRUE)])), BH=matrix(c(runif(35,0,0.01),runif(150)),ncol=1))
roc1 <- summarizeForROC(test1,spec=c("a","b","c"))
AucROC(roc1)
# }
Run the code above in your browser using DataLab