context('mixAK')
skip_if_not_installed('mixAK')
skip_on_cran()
skip('Disabled due to incompatibility with R 4.2')
rngReset()
tests = c(DEFAULT_LATREND_TESTS) %>% setdiff('cluster-three')
make.mixak = function(id, time, response, ...) {
form = as.formula(sprintf('%s ~ 1', response))
rand = as.formula(sprintf('~ %s', time))
m = lcMethodMixAK_GLMM(fixed = form, time = time, id = id, random = rand, ..., seed = 1)
evaluate(m)
}
test_that('default', {
expect_true({
suppressWarnings({
test.latrend('lcMethodMixAK_GLMM', instantiator = make.mixak, tests = tests, args = list(PED = FALSE))
})
})
})
test_that('multichain', {
expect_true({
suppressWarnings({
test.latrend('lcMethodMixAK_GLMM', instantiator = make.mixak, tests = tests, args = list(PED = TRUE))
})
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.