на 4 из 10 чашек
Контроль p=
2/10= 0,2УФ p= 4/10= 0,4
c<-binconf(x=2, n=10)
uv<-binconf(x=4, n=10)
> c
PointEst Lower Upper
0.2 0.05668215 0.5098375
> uv
PointEst Lower Upper
0.4 0.1681803 0.6873262