MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R 統計 アニメ 昔、リボライブをしてURカードを全種集めて、なおかつ2枚集めて覚醒させるのにどれくらいお金がかかるかをやったけれども、適度に課金するライトユーザーなら、なんでもいいからURカードが欲しいと思うだろう。 公式では50個のラブカストーンで1%の確率でURカードが出るといっているので、これまた無難に二項検定でもやると n <- 100 # 11回ガチャを100回までやるという設定 p.value <- mapply(function(i) binom.test(0, 11*i, 0.01)$p.value, seq(n)) plot(seq(n), p.value, type="l", xlab="… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20140420%2F1397922604" title="課金してURカードが引けないときの引き際 - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2014-04-20.png Hatena Blog https://hatena.blog 2014-04-20 00:50:04 rich https://mikuhatsune.hatenadiary.com/entry/20140420/1397922604 1.0 100%