# NOT RUN {
# generate data
set.seed(1234)
n = 50
group = rep(c(0,1), each = n/2)
age = rpois(n, lambda = 5)
beta = c(3, 0.05, 0.2, 0.03)
X = model.matrix(~group + age + age*group)
mu = exp(X %*% beta)
y = rep(NA, n)
library(tweeDEseq)
for (i in 1:n) y[i] = rPT(1, mu = mu[i], D = 2, a = 0, max = 1000)
dataset = data.frame(y, group, age)
rm(list = setdiff(ls(), 'dataset'))
# estimate a negative binomial glm
fit1 = nbglm(formula = y ~ group + age + age*group, data = dataset)
# define L for beta2 = beta4 = 0
L = matrix(0, nrow = 2, ncol = 4)
L[1, 2] = L[2, 4] = 1
# compute multivariate Wald test
wald.test(obj = fit1, L = L, k = NULL)
# }
Run the code above in your browser using DataLab