# \donttest{
# Using the alogliptin dataset
network <- mb.network(alog_pcfb)
# Run Emax model
emax <- mb.run(network, fun=temax())
# Update model for 500 iterations to monitor fitted values
mb.update(emax, param="theta", n.iter=500)
# Update model for 500 iterations to monitor residual deviance contributions
mb.update(emax, param="resdev", n.iter=500)
# Update model for 500 iterations to monitor deviance contributions
mb.update(emax, param="dev", n.iter=500)
# }
Run the code above in your browser using DataLab