11/22 プログラミングセミナー その２からの続き。 バグ取りはまだしていない。 # とりあえず変数を置いとく。 Nbase<- 2 Nbatter<- 5 # ここの値は11/22の表から選ぶ。 Nout<- 2 #Bprob<- c(0.7,0.1,0.1,0.05,0.05) Bprob<- c(0.8,0.05,0.05,0.05,0.05) # …