# Parkinsons example
park_net <- set_agd_arm(parkinsons,
study = studyn,
trt = trtn,
y = y,
se = se,
trt_ref = 1)
# View the network plot
plot(park_net)
# The 4 vs. 5 comparison is a spur on the network
has_direct(park_net, 4, 5)
has_indirect(park_net, 4, 5)
# 1 and 5 are not directly connected
has_direct(park_net, 1, 5)
has_indirect(park_net, 1, 5)
# The 1 vs. 2 comparison does not have independent indirect evidence, since
# the 1-2-4 loop is a multi-arm study
has_indirect(park_net, 1, 2)
# Get a list of comparisons with potential inconsistency for node-splitting
get_nodesplits(park_net)
# See van Valkenhoef (2016) for a discussion of this example
Run the code above in your browser using DataLab