Kod 2.4 - NMSwBE

# Kod 2.4. Estymacja przedziałowa wskaźnika struktury

n=length(cars$speed)

m=sum(cars$speed>=20)

binom.test(c(n,m))$conf.int