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

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

"benchstats" <-
structure(c(0.000258587954081401, 0.410539007700001, 0.169291555406000, 
0.123043554800760, 0.0561529947147402, -0.2885473351112, 0.14466166914203, 
-0.164011962367799, -0.662464968500001, 0.0317125499427999, 0.946261213500001, 
-0.00265382410306499, 0.579889026999999, 9.78086202924986e-05, 
0.0594011556471493, 0.0476478882180114, 0.132737636533614, 0.104282237762227, 
0.180050767824221, 0.107217113057045, 0.170503692227784, 0.0946319434042066, 
0.0101730288741549, 0.0824768579839012, 0.00284517130029543, 
0.0327700666700669, 9.78086202924986e-07, 0.000594011556471493, 
0.000476478882180114, 0.00132737636533614, 0.00104282237762227, 
0.00180050767824221, 0.00107217113057045, 0.00170503692227784, 
0.000946319434042066, 0.000101730288741549, 0.000824768579839012, 
2.84517130029543e-05, 0.000327700666700669, 1.59734783684731e-06, 
0.00104486381216680, 0.000871837590707426, 0.00238523919121791, 
0.00185619671379224, 0.00325052878422407, 0.00193225939149455, 
0.00309483572046584, 0.00158660353242343, 0.000119606535323448, 
0.00145790037221093, 3.82823321418858e-05, 0.000430359965314703
), .Dim = as.integer(c(13, 4)), .Dimnames = list(c("beta[1]", 
"beta[2]", "beta[3]", "beta[4]", "beta[5]", "beta[6]", "beta[7]", 
"beta[8]", "gamma[1]", "gamma[2]", "gamma[3]", "phi", "theta"
), c("Mean", "SD", "Naive SE", "Time-series SE")))