18/11/11 23:41:15.05 RT24eksu.net
（１）ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
（２）あるド底辺シリツ医大の裏口入学者には背中に１から通し番号がふられている。
一学年の定員は１００人である。
偶々みつかった裏口入学５人の番号のうち最大の番号が６０であった。
この二つの情報から、裏口人数の期待値と９５％信頼区間を求めてみよう。
離散量なので単に足し算すれば求まる。
vsJ=Vectorize(function(p) seqNpJ(N=100,K=4,p))
par(mfrow=c(2