いや、世界で一番わかりやすいかはどうだろう… library(pROC) n <- 30000 #判定されるものの数 a1 <- rnorm(n, mean=0) #陰性のもの a2 <- rnorm(n, mean=2, sd=2) #陽性のもの diagnosis <- rep(0:1, each=n) #各々の判定フラグ roc1 <- roc(diagnosis, c(a…