20/03/12 07:56:14.15 ggB+4VIO.net
100万回で>
k=1e6
> mean(replicate(k,sim()))
[1] 14.70651
20/03/12 07:56:14.15 ggB+4VIO.net
100万回で>
k=1e6
> mean(replicate(k,sim()))
[1] 14.70651
20/03/12 07:56:14.15 ggB+4VIO.net
100万回で>
k=1e6
> mean(replicate(k,sim()))
[1] 14.70651