題材の数値を使って率を固定したときの分布を計算する：練習

　　　　

ｓあり層 ｔの発生率固定時、発生数は、
　　　 s1t1y<-rbinom(1000,158,0.601)　

　　　　　

ｓあり層 ｔ0の発生率固定時、発生数は、
　　　 s1t0y<-rbinom(1000,16,0.1875)
　　　 hist(s1t0y)
　　　　

　　　　　

　dbinom(x, size, prob, log=FALSE)
　dbinom(1:10,　16,0.1875)
　dbinom(80:108,158,0.601)
　　　write.csv(dbinom(80:108,158,0.601),"dbint1.csv")

　このデータに二項分布を適用する意味はつけない.