m <- c(33.5, 37.9, 38.0, 44.1)
se <- c(0.84, 0.94, 1.65, 2.98)
x <- c(5, 10, 20, 30)
ci.slope.median.bs(.05, m, se, x)
# Should return:
# Estimate SE z p LL UL
# 0.3664407 0.1163593 3.149216 0.001637091 0.1383806 0.5945008
Run the code above in your browser using DataLab