# \donttest{
trial <- Trial$new(
covariates = \(n) data.frame(a = rbinom(n, 1, 0.5), x = rnorm(n)),
outcome = setargs(outcome_count, par = c(1, 0.5, 1), overdispersion = 0.7)
)
trial$estimators(
unadjusted = est_glm(family = "poisson"),
adjusted = est_glm(family = "poisson", covariates = "x")
)
trial$run(n = 200, R = 100)
trial$summary()
# }
Run the code above in your browser using DataLab