# \donttest{
# Using the triptans data
network <- mbnma.network(triptans)
split <- nma.nodesplit(network, likelihood = "binomial", link="logit",
method="common")
#### To perform nodesplit on selected comparisons ####
# Check for closed loops of treatments with independent evidence sources
loops <- inconsistency.loops(network$data.ab)
# This...
single.split <- nma.nodesplit(network, likelihood = "binomial", link="logit",
method="random", comparisons=rbind(c("sumatriptan_1", "almotriptan_1")))
#...is the same as...
single.split <- nma.nodesplit(network, likelihood = "binomial", link="logit",
method="random", comparisons=rbind(c(6, 12)))
# Plot results
plot(split, plot.type="density") # Plot density plots of posterior densities
plot(split, plot.type="forest") # Plot forest plots of direct and indirect evidence
# Print and summarise results
print(split)
summary(split) # Generate a data frame of summary results
# }
Run the code above in your browser using DataLab