MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ 野球 Rを使いこなす R 野球の続き。チームの人数を複数にしたとき、誰が先頭打者になって、そこから何人が打席に立つかで、1イニングに取る得点が変わるだろう、ということを考えた。 この日は、全イニングの平均を出したので、1番バッターが多いのは当たり前だね。 シミュレーション的に、各イニングで誰が先頭打者になっているか、1000000回試行してみよう。 #team<- rdirichlet(people,c(5,rep(1,Nbase))) team<- matrix(c(1/2,rep(1/8,Nbase)),nr=people,nc=5,byrow=T) hitp<- 1-colMeans(team)[1] Vnum<… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20110121%2F1295535961" title="どのイニングに誰が先頭打者になりやすいか - 驚異のアニヲタ社会復帰の予備" 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/2011-01-21.png Hatena Blog https://hatena.blog 2011-01-21 00:06:01 rich https://mikuhatsune.hatenadiary.com/entry/20110121/1295535961 1.0 100%