# \donttest{
# Create an mb.network object from a dataset
painnet <- mb.network(osteopain)
# Run an MBNMA model with an Emax time-course
emax <- mb.run(painnet,
fun=temax(pool.emax="rel", method.emax="common",
pool.et50="abs", method.et50="random"),
positive.scale=TRUE)
# Calculate treatment rankings for AUC and emax
ranks <- rank(emax,
param=c("auc"),
int.range=c(0,15), n.iter=500)
# Plot histograms for ranking by AUC
plot(ranks)
# }
Run the code above in your browser using DataLab