# NOT RUN {
# create a simple chain
thechain = list(beta = array(1, c(10, 3,4),
dimnames = list(NULL, NULL, paste("beta[", 1:4, "]", sep=""))),
intercept = matrix(1, 10, 3))
summaryChain(thechain)
# }
Run the code above in your browser using DataLab