# Return the model specification and starting values for a
# lognormal Poisson, then run the model using run.jags:
if (FALSE) {
data <- rpois(100, rlnorm(3, 0.2))
model <- run.model(model="LP", data=data, call.jags=FALSE)
library('runjags')
results <- extend.jags(model, burnin=5000, sample=10000)
}
Run the code above in your browser using DataLab