inst/classic-bugs/vol2/jaw/bench-test1.R

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

"benchstats" <-
structure(c(49.4274139699997, 49.4274139699997, 49.4274139699997, 
49.4274139699997, 49.4274139699997, 8.37495669000001, 7.38769671300002, 
6.20650799115798, 5.25828240219102, 7.38769671300002, 7.90487012299996, 
7.75362502400002, 7.71041174910001, 6.20650799115798, 7.75362502400002, 
9.70916464999998, 10.747626114, 5.25828240219102, 7.71041174910001, 
10.747626114, 13.2006171670000, 738.643794300001, 120.692825099999, 
1.12879695804653, 1.12879695804653, 1.12879695804653, 1.12879695804653, 
1.12879695804653, 4.0558487068153, 3.44044696936664, 3.35502273860939, 
3.78208358785405, 3.44044696936664, 3.45203853800048, 3.89837765357883, 
4.64111833094505, 3.35502273860939, 3.89837765357883, 4.89699995952766, 
5.89493427028293, 3.78208358785405, 4.64111833094505, 5.89493427028293, 
7.14426001571788, 189.007869820817, 4.4748436865115, 0.0112879695804653, 
0.0112879695804653, 0.0112879695804653, 0.0112879695804653, 0.0112879695804653, 
0.040558487068153, 0.0344044696936664, 0.0335502273860939, 0.0378208358785405, 
0.0344044696936664, 0.0345203853800048, 0.0389837765357883, 0.0464111833094504, 
0.0335502273860939, 0.0389837765357883, 0.0489699995952766, 0.0589493427028293, 
0.0378208358785405, 0.0464111833094504, 0.0589493427028293, 0.0714426001571788, 
1.89007869820817, 0.044748436865115, 0.0330640217885507, 0.0330640217885507, 
0.0330640217885507, 0.0330640217885507, 0.0330640217885507, 0.0809482614483981, 
0.0623929951953452, 0.0604761012515286, 0.0737585148422974, 0.0623929951953452, 
0.0608448596217263, 0.076259630841595, 0.0991976744255955, 0.0604761012515286, 
0.076259630841595, 0.101897458103989, 0.128843425451917, 0.0737585148422974, 
0.0991976744255955, 0.128843425451917, 0.157391113712835, 5.01192445730614, 
0.0502382200553817), .Dim = as.integer(c(23, 4)), .Dimnames = list(
    c("beta0", "mu[1]", "mu[2]", "mu[3]", "mu[4]", "Sigma2[1,1]", 
    "Sigma2[2,1]", "Sigma2[3,1]", "Sigma2[4,1]", "Sigma2[1,2]", 
    "Sigma2[2,2]", "Sigma2[3,2]", "Sigma2[4,2]", "Sigma2[1,3]", 
    "Sigma2[2,3]", "Sigma2[3,3]", "Sigma2[4,3]", "Sigma2[1,4]", 
    "Sigma2[2,4]", "Sigma2[3,4]", "Sigma2[4,4]", "RSS", "deviance"
    ), c("Mean", "SD", "Naive SE", "Time-series SE")))