# 2006 年 8 月 1 日
# コイン投げの結果の作図
repp=501
tim=rep(0,repp)
res=rep(0,repp)
for (i in 1:repp){
tim[i]=10+(i-1)*10
for (k in 1:10+(i-1)*10){
res[i]=res[i]+trunc(runif(1,0,1)*2)
}
if(i<repp){res[i+1]=res[i]}
res[i]=res[i]/(10+(i-1)*10)
}
plot(tim,res,type="l")
abline(0.5,0)