Code for bayesian estimation of cpt with two-parameter weighting function of Goldstein and Einhorn (1987)