# data(Faces)
# if(require(lme4.0, quietly = TRUE)){
# no random effects specified - calls glm
# Faces.glm <- polmer(SimRating ~ sibs, Faces)
# random effect of observer - call glmer
# GLITCH: must specify random effect as second level of factor (levels of sibs are 0/1)
# Faces.glmer <- polmer(SimRating ~ sibs + (sibs1 - 1 | Obs),
# Faces)
# }
Run the code above in your browser using DataLab