こんなプログラムを作る library(MCMCpack) expectation<-(rdirichlet(1,c(1,1,1))) #出す手の割合を決める guriko<-function(n){ p<-c() for (i in 1:n){ if (runif(1)>expectation[1]+expectation[2]) {p<-c(p,2)} #gu else if (runif(1)>expectation[1]) …