# \donttest{
data(Senn2013)
#
net1 <- netmeta(TE, seTE, treat1.long, treat2.long, studlab,
data = Senn2013)
# Full treatment names
#
net1$trts
# Treatment names with four characters
#
treats(net1$trts, nchar.trts = 4)
# With two characters
#
treats(net1$trts, nchar.trts = 2)
# With one character (if possible)
#
treats(net1$trts, nchar.trts = 1)
# Full comparison names
#
net1$comparisons
# Abbreviated comparison names
#
with(net1, comps(comparisons, trts, sep.trts, nchar = 4))
# }
Run the code above in your browser using DataLab