避難所 # パラメータ library(MCMCpack) library(gtools) library(expm) Nbase<- 4 Nout<- 3 Ninning<- 9 people<- 9 hitp<- 1-colMeans(team)[1] Vnum<- 100 cut<- 0.95 # 比較してみたいチーム Tigars<- rbind(c(0,0,0,0,1), c(0.6508972,0.2593801,0.0570…