##### JAGS model for trust game

model{

# Uniform prior for trust rates
pi.dqhyp ~ dunif(0,1)
pi.dqinc ~ dunif(0,1)
pi.rr ~ dunif(0,1)


# Crosswise model equation for "Option A"
lambda <- p*pi.rr + (1-p)*(1-pi.rr)


# Binomial model for observed responses
k[1] ~ dbinom(pi.dqhyp, n[1])
k[2] ~ dbinom(pi.dqinc, n[2])
k[3] ~ dbinom(lambda, n[3])   # RRT/Crosswise

# Differences in trust rates for Savage-Dickey Bayes factors
d.dqinc.dqhyp <- pi.dqinc - pi.dqhyp
d.rr.dqhyp <- pi.rr - pi.dqhyp
d.rr.dqinc <- pi.rr - pi.dqinc


}