# \donttest{
if (requireNamespace("crossnma", quietly = TRUE)) {
library("crossnma")
# Create a JAGS model
mod <- crossnma.model(treat, id, relapse, n, design,
prt.data = ipddata, std.data = stddata,
reference = "A", trt.effect = "random", method.bias = "naive")
# Fit JAGS model
set.seed(1909)
fit <- crossnma(mod)
# Print results in netmeta layout
cro <- crossnma2netmeta(fit)
cro
# SUCRAs
netrank(cro)
# Rankogram
rankogram(cro)
}
# }
Run the code above in your browser using DataLab