## import lme4 package and lmerTest package
library(lmerTest)
## Not run:
# m <- lmer(Coloursaturation ~ TVset*Picture+
# (1|Assessor)+(1|Assessor:TVset), data=TVbo)
#
# step(m, test.effs="TVset", reduce.fixed=FALSE, reduce.random=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab