某とくべつけんきゅういんの採用発表があった。
結果はお察しである。
不採択になった場合は、どれだけ評価が低かったかという数値と、応募者(応募領域内での)の順位が分かる。
このとき、評点は適当な変換がなされて、T スコアというスカラーが返ってくるが、これは全応募者の点数が平均3、標準偏差0.6 になるように変換されている。
というわけで、応募総数335、採用者54、保留24というときに、T スコア3.288 だった不採用者の立ち位置を確認してみる。
採用者は54/335 で上位16%ほど、保留者は上位23%までだった。T スコア3.288 では上位32% である。
実際に採用されるためにT スコアがどれだけ必要だったかは、採用最下位(緑)で3.593、保留者最下位(オレンジ)で3.436 である。
ちなみに、将来性4実績4計画3.17総合3.5 でした(爆
Tmean <- 3 Tscore <- 3.288 Tsd <- 0.6 Nall <- 335 Nsaiyo <- 54 Ninterview <- 24
pnorm(Tscore, Tmean, Tsd)
# 全体の順位 下から数えて [1] 0.6843863
x <- seq(0, 1, length=Nall) y <- qnorm(x, Tmean, Tsd) qu <- seq(0, 1, length=11) cols <- c("green", "orange", "red") par(mar=c(4, 5, 4, 3), cex.lab=1.5) plot(seq(Nall), y, type="l", xlab="number of canditates", ylab="T score", las=1, lwd=3) axis(3, at=quantile(seq(Nall), qu), labels=qu) mtext("proportion", 3, line=2.5, cex=1.5) abline(v=Nall-Nsaiyo, lty=3, col=cols[1], lwd=3) abline(h=y[Nall-Nsaiyo], lty=3, col=cols[1], lwd=3) text(par()$usr[2], y[Nall-Nsaiyo], round(y[Nall-Nsaiyo], 3), pos=4, xpd=TRUE) abline(v=Nall-Nsaiyo-Ninterview, lty=3, col=cols[2], lwd=3) abline(h=y[Nall-Nsaiyo-Ninterview], lty=3, col=cols[2], lwd=3) text(par()$usr[2], y[Nall-Nsaiyo-Ninterview], round(y[Nall-Nsaiyo-Ninterview], 3), pos=4, xpd=TRUE) abline(h=Tscore, lty=3, col=cols[3], lwd=3) abline(v=tail(which(y <= Tscore), 1), lty=3, col=cols[3], lwd=3) text(par()$usr[2], Tscore, round(Tscore, 4), pos=4, xpd=TRUE)
