### dis_data comes loaded with the package
out1 <- f2bayes(dis_data, prob = 0.9, B = 1000, get.dist = TRUE)
out2 <- process_results("bayes", out1$f2.dist, level = 0.9)
### out1 and out2 should contain the results for the info and intervals
Run the code above in your browser using DataLab