Nothing
test_that("calc.node.inla.glm() works", {
skip_on_cran() # Skipped on CRAN because it requires the INLA package
load(file = "testdata/calc.node.inla.glm_1.RData")
# load(file = 'tests/testthat/testdata/calc.node.inla.glm_1.RData')
expect_no_error({
res <- calc.node.inla.glm(
child,
dag,
data.df,
data.dists,
rep(1, dim(data.df)[1]),
## ntrials
rep(1, dim(data.df)[1]),
## exposure
TRUE,
mean.intercept,
prec.intercept,
control[["mean"]],
control[["prec"]],
control[["loggam.shape"]],
control[["loggam.inv.scale"]],
verbose,
nthreads = control[["ncores"]] # single threaded
)
})
expect_no_error({
calc.node.inla.glm(
child,
dag,
data.df,
data.dists,
rep(1, dim(data.df)[1]),
## ntrials
rep(1, dim(data.df)[1]),
## exposure
TRUE,
mean.intercept,
prec.intercept,
control[["mean"]],
control[["prec"]],
control[["loggam.shape"]],
control[["loggam.inv.scale"]],
verbose.loc = FALSE,
nthreads = 2
)
})
})
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.