こちらの続き。 上のリンクの関数を用意しておく。パラメータは Nbase<- 2 people<- 9 Nout<- 3 Ninning<- 3 sup<- 18 cut<- 0.99 hit<- 0.05 確率計算で出た結果を datacal<- data に格納する。 次に、シミュレーションする。 game<- 100000 # 15分くらい。…