MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R 統計 Rを使いこなす いや、世界で一番わかりやすいかはどうだろう… 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(a1, a2)) sen_spe <- rbind(roc1$sensitivities, roc1$specificities) #各々の閾値での感度と特異度 ss0 <- which.max(colSums(sen_… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20121227%2F1356444080" title="世界で一番わかりやすいROC解析 - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2012-12-27.gif Hatena Blog https://hatena.blog 2012-12-27 23:01:20 rich https://mikuhatsune.hatenadiary.com/entry/20121227/1356444080 1.0 100%