# \donttest{
# Create an mb.network object from a dataset
network <- mb.network(alog_pcfb)
# Run an MBNMA model with an Emax time-course
emax <- mb.run(network,
fun=temax(pool.emax="rel", method.emax="common",
pool.et50="rel", method.et50="random"),
intercept=FALSE)
# Rank treatments by time-course parameter from the model with lower scores being better
rank(emax, param=c("emax"), lower_better=TRUE)
# Rank treatments 1-3 by AUC
rank(emax, param="auc", treats=c(1:3), lower_better=TRUE,
int.range=c(0,20))
# }
Run the code above in your browser using DataLab