# NOT RUN {
# Set up network of plaque psoriasis IPD
head(plaque_psoriasis_ipd)
pso_net <- set_ipd(plaque_psoriasis_ipd,
study = studyc,
trt = trtc,
r = pasi75)
# Print network details
pso_net
# Plot network
plot(pso_net)
# Setting a different reference treatment
set_ipd(plaque_psoriasis_ipd,
study = studyc,
trt = trtc,
r = pasi75,
trt_ref = "PBO")
# }
Run the code above in your browser using DataLab