# \donttest{
# Using the osteoarthritis data
network <- mbnma.network(osteopain)
# Run an MBNMA model
expon <- mbnma.run(network, fun=dexp(), method="random")
# Calculate relative effects for MBNMA between:
# Celebrex 100mg/d, Celebrex 200mg/d, Tramadol 100mg/d
rel.eff <- get.relative(lower.diag=expon,
treatments=list("Celebrex"=c(100,200), "Tramadol"=100))
# Run an NMA model
nma <- nma.run(network, method="random")
# Compare results between MBNMA and NMA models
rel.eff <- get.relative(lower.diag=expon, upper.diag=nma,
treatments=list("Celebrex"=c(100,200), "Tramadol"=100),
upper.direction="colvrow")
# }
Run the code above in your browser using DataLab