fm1 <- clmm(rating ~ contact + temp + (1|judge), data=wine)
## Extract random effect estimates/conditional modes:
re <- ranef(fm1, condVar=TRUE)
## Get conditional variances:
attr(re$judge, "condVar")
## Alternatively:
condVar(fm1)
Run the code above in your browser using DataLab