meta (version 5.1-1)

cisapride: Cisapride in Non-Ulcer Dispepsia

Description

Meta-analysis on cisapride in non-ulcer dispepsia.

This meta-analysis is used as a data example in Hartung and Knapp (2001).

Format

A data frame with the following columns:

study	study label
event.cisa	number of events in cisapride group
n.cisa	number of observations in cisapride group
event.plac	number of events in placebo group

See Also

metabin

Examples

# NOT RUN {
data(cisapride)

m.or <- metabin(event.cisa, n.cisa, event.plac, n.plac,
                data = cisapride, sm = "OR", method = "Inverse",
                studlab = study, addincr = TRUE)

m.or.hakn <- update(m.or, hakn = TRUE)
m.rr <- update(m.or, sm = "RR")
m.rr.hakn <- update(m.or, sm = "RR", hakn = TRUE)

vars.fixed <- c("TE.fixed", "lower.fixed", "upper.fixed")
vars.random <- c("TE.random", "lower.random", "upper.random")
#
res.fixed.or <- as.data.frame(m.or[vars.fixed])
names(res.fixed.or) <- vars.random
#
res.fixed.rr <- as.data.frame(m.rr[vars.fixed])
names(res.fixed.rr) <- vars.random

# Results for log risk ratio - see Table VII in Hartung and Knapp (2001) 
#
res.rr <- rbind(res.fixed.rr,
                as.data.frame(m.rr[vars.random]),
                as.data.frame(m.rr.hakn[vars.random]))
#
row.names(res.rr) <- c("FE", "RE", "RE (HaKn)")
names(res.rr) <- c("Log risk ratio", "CI lower", "CI upper")
#
res.rr


# Results for log odds ratio (Table VII in Hartung and Knapp 2001) 
#
res.or <- rbind(res.fixed.or,
                as.data.frame(m.or[vars.random]),
                as.data.frame(m.or.hakn[vars.random]))
#
row.names(res.or) <- c("FE", "RE", "RE (HaKn)")
names(res.or) <- c("Log odds ratio", "CI lower", "CI upper")
#
res.or
# }