Create elicit_Rt_prior.R