Commit c0d14859 authored by linushof's avatar linushof
Browse files

Change possible scale range of alpha and delta

parent f1adf58d
...@@ -36,14 +36,14 @@ model ...@@ -36,14 +36,14 @@ model
## retransfrom group level means and extend scales to a reasonable range (cf. Scheibehenne & Pachur, 2015) ## retransfrom group level means and extend scales to a reasonable range (cf. Scheibehenne & Pachur, 2015)
mu.alpha <- 2*phi(mu.alpha.prob) mu.alpha <- phi(mu.alpha.prob)
mu.gamma <- 2*phi(mu.gamma.prob) mu.gamma <- 2*phi(mu.gamma.prob)
mu.delta <- 5*phi(mu.delta.prob) mu.delta <- 10*phi(mu.delta.prob)
mu.rho <- exp(mu.rho.log) mu.rho <- exp(mu.rho.log)
# agent level # agent level
for (j in n_agents) for (j in 1:n_agents)
{ {
## transformed agent-level parameters are drawn from group-level normal distributions on the respective scale ## transformed agent-level parameters are drawn from group-level normal distributions on the respective scale
...@@ -62,7 +62,7 @@ model ...@@ -62,7 +62,7 @@ model
# define CPT model # define CPT model
for (i in start:stop) for (i in 1:n_gambles)
{ {
# value function # value function
...@@ -76,8 +76,8 @@ model ...@@ -76,8 +76,8 @@ model
w.a.p2[i, j] <- exp(-delta[j]*(pow((-1*(log(a_p2_exp[i, j]))), gamma[j]))) w.a.p2[i, j] <- exp(-delta[j]*(pow((-1*(log(a_p2_exp[i, j]))), gamma[j])))
w.a.p1[i, j] <- 1-w.a.p2[i, j] w.a.p1[i, j] <- 1-w.a.p2[i, j]
w.b.p1[i, j] <- exp(-delta[j]*(pow((-1*(log(b_p1[i, j]))), gamma[j]))) w.b.p1[i, j] <- exp(-delta[j]*(pow((-1*(log(b_p1[i]))), gamma[j])))
w.b.p2[j, i] <- 1-w.b.p1[j, i] w.b.p2[i, j] <- 1-w.b.p1[i, j]
Vf.a[i, j] <- w.a.p1[i, j] * v.a.o1[i, j] + w.a.p2[i, j] * v.a.o2[i, j] Vf.a[i, j] <- w.a.p1[i, j] * v.a.o1[i, j] + w.a.p2[i, j] * v.a.o2[i, j]
Vf.b[i, j] <- w.b.p1[i, j] * v.b.o1[i, j] + w.b.p2[i, j] * v.b.o2[i, j] Vf.b[i, j] <- w.b.p1[i, j] * v.b.o1[i, j] + w.b.p2[i, j] * v.b.o2[i, j]
......
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