MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R グリコ バグ取りして修正してみた。 N<-10 #ジャンケンする回数 library(gtools) #とりあえず全通り出す cmb<- combinations(5,N,repeats.allowed=T) num<- nrow(cmb) #A→1、B→2、C→3、D→4、E→5 と変換 ABCDE.count<- matrix(rep(0,5*nrow(cmb)),nc=5) for(i in 1:num){ for(k in 1:N){ if(cmb[i,k]==1){ABCDE.count[i,1]<- ABCDE.count[i,1] + 1} else if(cmb[i,k]==2){AB… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20101009%2F1286634587" title="一回のグリコの勝率 - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-10-09 23:29:47 rich https://mikuhatsune.hatenadiary.com/entry/20101009/1286634587 1.0 100%