network <- mb.network(osteopain)
# Get the latest time point
late.time <- get.latest.time(network)
# Get the closest time point to a given value (t)
early.time <- get.closest.time(network, t=7)
# Run NMA on the data
nma.run(late.time$data.ab, treatments=late.time$treatments,
method="random")
Run the code above in your browser using DataLab