>>961（補足）

ビュフォンは子供にコインを繰り返し投げさせる実験を行った[5]。
2084回のゲームを行い、そのうち1061回で1円、494回で2円、…、合計で10057円を獲得した。
この実験において、1回のゲームでの獲得金額の平均は約5円ということになる。

をシミュレーションでやってみる。

sim <- function(p=0.5){
head=FALSE
i=0 # コイントスの回数
while(head==FALSE){ # 表(head:1)がでるまで繰り返す
head <- rbinom(1,1,p)==1
i=i+1
}
2^(i-1)　　　　　　 # 賞金額
}

re=replicate(2084,sim()) #2084回
sum(re) 　　# 獲得金総額
table(re)　 # その頻度
mean(re)　　# 1回のゲームでの獲得金額の平均

> sum(re) 　　# 獲得金総額
[1] 12703
> table(re)　 # その頻度
re
1 2 4 8 16 32 64 128 256 512 2048
1015 562 249 138 63 25 14 9 6 2 1
> mean(re)　　# 1回のゲームでの獲得金額の平均
[1] 6.095489
以上はまあ、似たような結果ではあるが、


たまに次のような値がでることがあって、平均が一定しない。
> sum(re) 　　# 獲得金総額
[1] 83694
> table(re)　 # その頻度
re
1 2 4 8 16 32 64 128 256 512 1024 2048
1070 512 250 111 66 46 12 5 4 4 1 1
4096 65536
1 1
> mean(re)　　# 1回のゲームでの獲得金額の平均
[1] 40.16027