Code for bayesian estimation of cpt with two-parameter weighting function of...

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

JAGS/cpt_pooled.txt

@@ -26,7 +26,7 @@ model
 	v.b.o1[i] <- pow(b_o1[i], alpha)
 	v.b.o2[i] <- pow(b_o2[i], alpha)
 
-	# weighting function (cf. Prelec, 1998)
+	# weighting function (cf. Goldstein-Einhorn, 1987)
 
 	w.a.p2[i] <- (delta * (pow(a_p2_exp[i], gamma))) / (delta * (pow(a_p2_exp[i], gamma)) + pow(a_p1_exp[i], gamma))
 	w.a.p1[i] <- 1-w.a.p2[i]