extract_CrIs function

Extract Credible Intervals Present