
dat.nielweise2008
numeric
study number
authors character
study authors
year numeric
publication year
x1i numeric
number of CRBSIs in patients receiving an anti-infective catheter
t1i numeric
total number of catheter days for patients receiving an anti-infective catheter
x2i numeric
number of CRBSIs in patients receiving a standard catheter
t2i numeric
total number of catheter days for patients receiving a standard catheter
}### load data
dat <- get(data(dat.nielweise2008))
### standard (inverse-variance) random-effects model
res <- rma(measure="IRR", x1i=x1i, t1i=t1i, x2i=x2i, t2i=t2i, data=dat)
print(res, digits=3)
predict(res, transf=exp, digits=2)
### random-effects conditional Poisson model
res <- rma.glmm(measure="IRR", x1i=x1i, t1i=t1i, x2i=x2i, t2i=t2i, data=dat, model="CM.EL")
print(res, digits=3)
predict(res, transf=exp, digits=2)
Run the code above in your browser using DataLab