# NOT RUN {
data(Fleiss93cont)
#
# Generate additional variable with grouping information
#
Fleiss93cont$group <- c(1, 2, 1, 1, 2)
#
# Do meta-analysis without grouping information
#
m1 <- metacont(n.e, mean.e, sd.e, n.c, mean.c, sd.c, study,
data = Fleiss93cont, sm = "SMD")
#
# Update meta-analysis object and do subgroup analyses
#
summary(update(m1, byvar = group))
# Same result using metacont function directly
#
m2 <- metacont(n.e, mean.e, sd.e, n.c, mean.c, sd.c, study,
data = Fleiss93cont, sm = "SMD", byvar = group)
summary(m2)
# Compare printout of the following two commands
#
as.data.frame(m1)
m1$data
# }
Run the code above in your browser using DataLab