# 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