たくさんのｐ値を均一分布から発生させる k個のp値の最小値の期待値がであることの確認 N<-10000 k<-5 Xs<-matrix(runif(N*k),N,k) Mins<-apply(Xs,1,min) mean(Mins) 1/(k+1) k個のp値のうちのi番目に小さい値の期待値がであることの確認 N<-1000 k<-10 Xs<…