testValues.tr <- c(4.93, 12.12, 24.43, 49.20)
# the values below should be approx. c = 0.2, 0.5, 1, 2
# according to the paml documentation
for (i in testValues.tr) {
print(c_truncauchy(tl=1, tr=i, p=0.1, pr=0.975, al=0.025))
}
Run the code above in your browser using DataLab