data(hilbig2014)
head(hilbig2014)
# validities and cue values
v <- c(.9, .8, .7, .6)
cueA <- matrix(
c(
1, 1, 1, -1,
1, -1, -1, -1,
1, 1, 1, -1
),
ncol = 4, byrow = TRUE
)
cueB <- matrix(
c(
-1, 1, -1, 1,
-1, 1, 1, -1,
-1, 1, 1, 1
),
ncol = 4, byrow = TRUE
)
# get strategy predictions
strategies <- c(
"baseline", "WADDprob", "WADD",
"TTB", "EQW", "GUESS"
)
preds <- strategy_multiattribute(cueA, cueB, v, strategies)
c <- c(1, rep(.5, 5)) # upper bound of probabilities
# use Bayes factor for strategy classification
n <- rep(32, 3)
strategy_postprob(k = hilbig2014[1:5, ], n, preds)
Run the code above in your browser using DataLab