>>931
(1) 幾何分布なのでdgeo(4-1,3/10)
(2) p=3/10 で期待値の公式は1/p=10/3
(3)超幾何分布なので
> data.frame(X=0:5,Pr=dhyper(0:5,6,4,5))
X Pr
1 0 0.00000000000
2 1 0.02380952381
3 2 0.23809523810
4 3 0.47619047619
5 4 0.23809523810
6 5 0.02380952381