# Not run
data(sensory)
Consumer <- factor(sensory$consumer)
Sacarose <- factor(sensory$sacarose)
#### Model
# Not run
dex1 <- Bayesthresh(cor ~ (1|Consumer) + Sacarose, burn = 0, Write=TRUE,
jump = 1, ef.iter = 10, data=sensory)
random.effects(dex1)
random.effects(dex1, HPDinterval=TRUE)
Run the code above in your browser using DataLab