# NOT RUN {
data(Senn2013)
#
net1 <- netmeta(TE, seTE, treat1.long, treat2.long,
studlab, data = Senn2013,
comb.fixed = FALSE)
#
ns1 <- netsplit(net1)
# Forest plot showing comparisons contributing both direct and
# indirect evidence
#
forest(ns1, fontsize = 6, spacing = 0.5, addrow.subgroups = FALSE)
# }
# NOT RUN {
# Forest plot showing comparisons contributing direct evidence
#
forest(ns1, fontsize = 6, spacing = 0.5, addrow.subgroups = FALSE,
show = "with.direct")
# Forest plot only showing network estimates compared to reference
# group and prediction intervals
#
forest(ns1, fontsize = 8, spacing = 0.75,
show = "ref", prediction = TRUE,
direct = FALSE, indirect = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab