inst/classic-bugs/vol2/asia/bench-test2.R

In nimble: MCMC, Particle Filtering, and Programmable Hierarchical Modeling

"benchstats" <-
structure(c(0.525210658447999, 0.345942570818771, 0.474789341652999, 
0.654057430399996, 1.5568, 1.365, 0.212549146870507, 0.233163894900116, 
0.212549146798114, 0.233163896202967, 0.496788123694583, 0.481454234396149, 
0.00212549146870507, 0.00233163894900116, 0.00212549146798114, 
0.00233163896202968, 0.00496788123694583, 0.00481454234396149, 
0.00245237262789446, 0.00280505408066832, 0.00245237261368732, 
0.00280505408561749, 0.00564652653350452, 0.00594436023137488
), .Dim = as.integer(c(6, 4)), .Dimnames = list(c("theta.b[1,1]", 
"theta.b[2,1]", "theta.b[1,2]", "theta.b[2,2]", "smoking[2]", 
"smoking[3]"), c("Mean", "SD", "Naive SE", "Time-series SE")))