library("testthat")
library("lmerTest")
context("lmer models and methods")
test_that("summary fails for ProblemSet. Hessian is not positive definite", {
load(system.file("testdata","ProblemSet.RData",package="lmerTest"))
m <- lmer(ExpScore~ChLevel+(1|Subject), data=ProblemSet)
#summary(m)
expect_is(m,"merModLmerTest")
#expect_error(summary(m)," length of 'dimnames' [2] not equal to array extent")
});
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.