# \donttest{
pw <- pairwise(studlab = study, treat = treatment,
n = n, mean = mean, sd = sd, data = Senn2013,
varnames = c("MD", "seMD"))
nma <- netmeta(pw)
# Full treatment names
#
nma$trts
# Treatment names with four characters
#
treats(nma$trts, nchar.trts = 4)
# With two characters
#
treats(nma$trts, nchar.trts = 2)
# With one character (if possible)
#
treats(nma$trts, nchar.trts = 1)
# Full comparison names
#
nma$comparisons
# Abbreviated comparison names
#
with(nma, comps(comparisons, trts, sep.trts, nchar = 4))
# }
Run the code above in your browser using DataLab