# Using the osteoarthritis data
network <- mbnma.network(osteopain)
expon <- mbnma.run(network, fun=dexp(), method="random")
# Calculate relative effects between:
# Celebrex 100mg/d, Celebrex 200mg/d, Tramadol 100mg/d
rel.eff <- get.relative(expon, treatments=list("Celebrex"=c(100,200), "Tramadol"=100))
Run the code above in your browser using DataLab