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

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

`benchstats` <-
structure(c(5.267767678, 2.19825122035, -5.878231292, 0.25772246908, 
0.27418367272, 0.22958711222, 7.825512028, 0.136485975762224, 
0.193303711509264, 0.144302704132850, 0.114427792103230, 0.153146226506097, 
0.107397445281785, 1.17409428491240, 0.00136485975762224, 0.00193303711509264, 
0.00144302704132850, 0.00114427792103230, 0.00153146226506097, 
0.00107397445281785, 0.0117409428491240, 0.00420845002841319, 
0.0102560694439103, 0.00592153558176224, 0.00256692514089797, 
0.00820144064743893, 0.00252259132615289, 0.0205633213063669), .Dim = as.integer(c(7, 
4)), .Dimnames = list(c("mu[1]", "mu[2]", "mu[3]", "sigma[1]", 
"sigma[2]", "sigma[3]", "sigmaC"), c("Mean", "SD", "Naive SE", 
"Time-series SE")))