## load the Neurocysticercosis example
setDALYexample(1)
## initiate the Monte Carlo simulation process
## and store results in object 'x'
x <- getDALY()
## plot histogram of total deaths
## 90% credible interval + median
hist(x, xval = "Deaths", prob = 0.90, central = "median")Run the code above in your browser using DataLab