inst/snippets/Example6.4b.R

p.hat <- 0.82; p.hat            
SE <- sqrt(p.hat * (1 - p.hat) / 800); SE    # est. SE
p.hat - 1.96 * SE                            # lower end of CI 
p.hat + 1.96 * SE                            # upper end of CI
confint(prop.test(656, 800))                 # 656 = 0.82 * 800
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.