# 使用する関数をまとめたファイル # 末尾の関数定義参照 source('functions/func_markov_model_using_event_sampling.R') # 1試合を計算する関数だけを示す # その他は末尾に掲載 simulate.one.game <- function(df = lineup, game = 1){ # 初期条件 s <- "000 0"; # 状態を示す変数 1,2,3塁ランナー状態 (0 or 1) + アウトカウント. 3アウトは"3"でコードしている runs <- 0; # 得点 (イニングごとに0に戻していることに注意...