# NOT RUN {
data(amlodipine)
m <- metacont(n.amlo, mean.amlo, sqrt(var.amlo),
n.plac, mean.plac, sqrt(var.plac),
data = amlodipine, studlab = study)
m.hakn <- update(m, hakn = TRUE)
# Same results for mean difference as in Table III in Hartung and
# Knapp (2001)
#
vars.fixed <- c("TE.fixed", "lower.fixed", "upper.fixed")
vars.random <- c("TE.random", "lower.random", "upper.random")
#
res.fixed <- as.data.frame(m[vars.fixed])
names(res.fixed) <- vars.random
#
res.md <- rbind(res.fixed,
as.data.frame(m[vars.random]),
as.data.frame(m.hakn[vars.random]))
#
res.md <- round(res.md, 5)
#
row.names(res.md) <- c("FE", "RE", "RE (HaKn)")
names(res.md) <- c("Absolute difference", "CI lower", "CI upper")
#
res.md
# }
Run the code above in your browser using DataLab