20/06/27 15:48:30.16 AZV4v9kW.net
> apply(replicate(1e6,fn(2)),1,mean) # BCA
[1] 0.416438 0.249936 0.333626
ちなみにこれは>733の
> c(5/12,1/4,1/3)
[1] 0.4166667 0.2500000 0.3333333
に相当。
20/06/27 15:48:30.16 AZV4v9kW.net
> apply(replicate(1e6,fn(2)),1,mean) # BCA
[1] 0.416438 0.249936 0.333626
ちなみにこれは>733の
> c(5/12,1/4,1/3)
[1] 0.4166667 0.2500000 0.3333333
に相当。