require(lmerTest)
#### ASSERTS ERRORS
m <- lmer(Coloursaturation ~ TVset*Picture +
(1|Assessor)+(1|Assessor:TVset), data=TVbo)
m2 <- update(m)
tools::assertError(stopifnot(class(m)==class(m2), TRUE), TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.