Nothing
stopifnot(require("testthat"),
require("glmmTMB"))
test_that("predhess handling", {
load(system.file("test_data", "cygu.rda", package = "glmmTMB"))
jointmodel_tmb <- suppressWarnings(glmmTMB(model_form_joint,
data=model_df,
control=glmmTMBControl(
profile=TRUE
),
family = binomial(link = "logit")
))
## lame test, but we just want to make sure not to get error
## Error in fitTMB(TMBStruc) : object 'g' not found
expect_is(jointmodel_tmb, "glmmTMB")
})
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.