multinomineq (version 0.2.6)

regenwetter2012: Data: Ternary Risky Choices (Regenwetter & Davis-Stober, 2012)

Description

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).

Usage

regenwetter2012

Format

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

References

Regenwetter, M., & Davis-Stober, C. P. (2012). Behavioral variability of choices versus structural inconsistency of preferences. Psychological Review, 119(2), 408-416. tools:::Rd_expr_doi("10.1037/a0027372")

See Also

The substantive model of interest was the strict weak order polytope (see swop5).

Examples

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)

# \donttest{
# 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
)
# }