# A simple poll
# yes = 46% no = 54%
p <- .46
n <- 200
SE <- sqrt((p*(1-p))/n)
#confidence interval
CI <- SE * 2
#expressed as a percent
CIP <- CI * 100
# CI is .07 the CIP is 7
# utility of the poll?
#if we wanted to CI to be .7% how many people would we have to poll?