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