# \donttest{
# Using the triptans data
network <- mbnma.network(triptans)
# Rank selected predictions from an Emax dose-response MBNMA
emax <- mbnma.run(network, fun=demax(), method="random")
rels <- get.relative(emax)
rank <- rank(rels, lower_better=TRUE)
# Print and generate summary data frame for `mbnma.rank` object
summary(rank)
print(rank)
# Plot `mbnma.rank` object
plot(rank)
# }
Run the code above in your browser using DataLab