0287132人目の素数さん
2021/02/27(土) 14:42:41.53ID:JnDPGNf5> apply(data,1,summary)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
Min. 0.000000 0.00000 0.000000 0.000000 0.000000 1.000000 2.000000 3.000000 4.000000 5.000000
1st Qu. 0.000000 1.00000 2.000000 2.000000 3.000000 3.000000 4.000000 5.000000 5.000000 6.000000
Median 1.000000 1.00000 2.000000 3.000000 3.000000 4.000000 5.000000 5.000000 6.000000 7.000000
Mean 0.666639 1.33302 2.000166 2.666532 3.332059 3.998781 4.665502 5.334263 6.001115 6.666646
3rd Qu. 1.000000 2.00000 3.000000 3.000000 4.000000 5.000000 5.000000 6.000000 7.000000 7.000000
Max. 1.000000 2.00000 3.000000 4.000000 5.000000 6.000000 7.000000 8.000000 9.000000 10.000000
問題に適用すると
> mean(data[2,]==2) #(1)
[1] 0.432332
> mean(data[4,]>=2) #(2)
[1] 0.915229
> mean(data[10,]>=8) #(3)
[1] 0.210001
まあ、分数解と近似している。