f <- c(14, 27, 38)
n <- c(100, 100, 100)
x <- c(10, 20, 40)
ci.slope.prop.bs(.05, f, n, x)
# Should return:
# Estimate SE z p LL UL
# 0.007542293 0.002016793 3.739746 0.000184206 0.003589452 0.01149513
Run the code above in your browser using DataLab