# \donttest{
# Using the triptans data
network <- mbnma.network(triptans)
split <- mbnma.nodesplit(network, fun=demax(), likelihood = "binomial", link="logit",
method="common")
#### To perform nodesplit on selected comparisons ####
# Check for closed loops of treatments with independent evidence sources
# Including indirect evidence via the dose-response relationship
loops <- inconsistency.loops(network$data.ab, incldr=TRUE)
# This...
single.split <- mbnma.nodesplit(network, fun=dexp(), likelihood = "binomial", link="logit",
method="random", comparisons=rbind(c("sumatriptan_1", "almotriptan_1")))
#...is the same as...
single.split <- mbnma.nodesplit(network, fun=dexp(), 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, txt_gp=forestplot::fpTxtGp(cex=0.5)) # Plot forest plots (with smaller label size)
# Print and summarise results
print(split)
summary(split) # Generate a data frame of summary results
# }
Run the code above in your browser using DataLab