# single item type
v <- c(.9, .8, .7, .6)
ca <- c(1, -1, -1, 1)
cb <- c(-1, 1, -1, -1)
strategy_multiattribute(ca, cb, v, "TTB")
strategy_multiattribute(ca, cb, v, "WADDprob")
# multiple item types
data(heck2017_raw)
strategy_multiattribute(
heck2017_raw[1:10, c("a1", "a2", "a3", "a4")],
heck2017_raw[1:10, c("b1", "b2", "b3", "b4")],
v, "WADDprob"
)
Run the code above in your browser using DataLab