当たりくじが表示より不当に少なくしか入っていないかどうかを疑っているときのサンプリング鑑定 p1 <- 0.1 p2 <- 0.01 Ns <- 1:46 for(i in 1:length(Ns)){ N <- Ns[i] db.1 <- dbinom(0:N,N,p1) db.2 <- dbinom(0:N,N,p2) cumsum.1 <- cumsum(db.1) cumsum…