# NOT RUN {
data(stroop)
resStroop <- constraintBF(rtS ~ ID*cond,
data = stroop,
whichRandom = "ID",
ID = "ID",
whichConstraint = c(cond = "2 > 1"),
rscaleEffects = c("ID" = 1, "cond" = 1/6, "ID:cond" = 1/10))
plotEffects(resStroop)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab