避難所 Nout<- 3 Nbase<- 4 Nbatter<- 13 Bprob<- c(0.7,0.1,0.1,0.05,0.05) #Ninning<- 9 #Bprob<- c(0.85,0.05,0.08,0.02) #To count each batting pattern from 1 to Nbase. num.count<- function(vec){ counter<- rep(0,Nbase) for(result in 1:Nbase){ …