Nothing
stopifnot(require("testthat"),
require("glmmTMB"))
data(sleepstudy, cbpp,
package = "lme4")
context("alternative optimizers")
test_that("downstream methods work with optim()", {
skip_on_cran()
m1 <- glmmTMB(count~ mined, family = poisson, data = Salamanders,
control = glmmTMBControl(optimizer = optim,
optArgs = list(method="BFGS")))
expect_is(summary(m1),"summary.glmmTMB")
expect_is(confint(m1),"matrix")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.