# Only consider first two studies (to reduce runtime of example)
#
studies <- unique(dat.franchini2012$Study)
pw1 <- pairwise(list(Treatment1, Treatment2, Treatment3),
n = list(n1, n2, n3),
mean = list(y1, y2, y3), sd = list(sd1, sd2, sd3),
data = subset(dat.franchini2012, Study %in% studies[1:2]),
studlab = Study)
net1 <- netmeta(pw1)
ni1 <- netimpact(net1, verbose = TRUE)
ni1
netgraph(ni1)
# \donttest{
netgraph(ni1, plastic = TRUE)
pw2 <- pairwise(list(Treatment1, Treatment2, Treatment3),
n = list(n1, n2, n3),
mean = list(y1, y2, y3), sd = list(sd1, sd2, sd3),
data = dat.franchini2012,
studlab = Study)
net2 <- netmeta(pw2)
ni2 <- netimpact(net2, verbose = TRUE)
netgraph(ni2)
# }
Run the code above in your browser using DataLab