Commit 355f07f3 authored by linushof's avatar linushof
Browse files

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)
parent 811a2dd4
......@@ -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]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment