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

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

"benchstats" <-
structure(c(106.596587, 6.18575126000001, 10.42905894, 0.502150715, 
242.683101, 2.26387684797866, 0.106995689927564, 1.89231370410078, 
0.0855579639527585, 2.87644508780233, 0.0715900718173534, 0.00338350079992239, 
0.0598402135250836, 0.00270558038057300, 0.0909611804185837, 
0.0808507122952663, 0.00379646195003598, 0.0677856643123738, 
0.00292439342007822, 0.0960030908140512), .Dim = as.integer(c(5, 
4)), .Dimnames = list(c("mu.beta[1]", "mu.beta[2]", "sigma.beta[1]", 
"sigma.beta[2]", "alpha0"), c("Mean", "SD", "Naive SE", "Time-series SE"
)))