y1 <- c(9.4, 10.3, 58.3, 106.0, 31.0, 46.2, 12.0, 19.0, 135.0, 159.0)
y2 <- c(14.6, 5.1, 8.1, 22.7, 6.4, 4.4, 19.0, 3.2)
ci.mann(.05, y1, y2)
# Should return:
# Estimate SE LL UL
# 0.86875 0.1222202 0.6292028 1
Run the code above in your browser using DataLab