regenwetter2012 | R Documentation |
Raw data with choice frequencies for all 20 paired comparison of 5 gambles a, b, c, d, and e. Participants could either choose "Option 1", "Option 2", or "indifferent" (ternary choice). Each paired comparison (e.g., a vs. b) was repeated 45 times per participant. The data include 3 different gamble sets and aimed at testing whether people have transitive preferences (see Regenwetter & Davis-Stober, 2012).
regenwetter2012
A matrix with 22 columns:
participant
: Participant number
gamble_set
: Gamble set
a>b
: Number of times a preferred over b
b>a
: Number of times b preferred over a
a=b
: Number of times being indifferent between a and b
Regenwetter, M., & Davis-Stober, C. P. (2012). Behavioral variability of choices versus structural inconsistency of preferences. Psychological Review, 119(2), 408-416. doi: 10.1037/a0027372
The substantive model of interest was the strict weak order polytope (see swop5
).
data(regenwetter2012) head(regenwetter2012) # check transitive preferences: strict weak order polytope (SWOP) data(swop5) tail(swop5$A, 3) # participant 1, gamble set 1: p1 <- regenwetter2012[1, -c(1:2)] inside_multinom(p1, swop5$options, swop5$A, swop5$b) # posterior samples p <- sampling_multinom(regenwetter2012[1, -c(1:2)], swop5$options, swop5$A, swop5$b, M = 100, start = swop5$start ) colMeans(p) apply(p[, 1:6], 2, plot, type = "l") ppp_multinom(p, p1, swop5$options) # Bayes factor bf_multinom(regenwetter2012[1, -c(1:2)], swop5$options, swop5$A, swop5$b, M = 10000 )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.