## Test if the choice probabilities of a mixed strategy for rock-paper-scissors.
## The rock-paper-scissors data is from Wang, Xu, and Zhou (2014).
model.mixed <- stratEst.model(data = data.WXZ2014, strategies = strategies.RPS["mixed"])
t.probs <- stratEst.test(model = model.mixed, par = "probs", values = 1/3)
print(t.probs)
Run the code above in your browser using DataLab