inst/classic-bugs/vol2/birats/bench-test4.R

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

"benchstats" <-
structure(c(106.609298300000, 6.17942346, 10.81283172, 0.505396002, 
-0.0817642112753, 242.55659, 2.36249996848004, 0.109527255164421, 
1.97246596486281, 0.086802587192141, 0.242860878024954, 2.85786048547763, 
0.0747088087247292, 0.00346355592186011, 0.0623748505612814, 
0.00274493882322525, 0.00767993529107189, 0.0903734836910388, 
0.0754675554867296, 0.00343367094102554, 0.0639714835667876, 
0.00287717396941173, 0.00808315789496544, 0.0924472421786709), .Dim = as.integer(c(6, 
4)), .Dimnames = list(c("mu.beta[1]", "mu.beta[2]", "sigma.beta[1]", 
"sigma.beta[2]", "r", "alpha0"), c("Mean", "SD", "Naive SE", 
"Time-series SE")))