res <- c(-2.70, -2.69, -1.32, 1.02, 1.23, -1.46, 2.21, -2.10, 2.56,
-3.02, -1.55, 1.46, 4.02, 2.34)
ci.mape(.05, res, 1)
# Should return:
# Estimate SE LL UL
# 2.3744 0.3314752 1.751678 3.218499
Run the code above in your browser using DataLab