inst/classic-bugs/vol1/bones/bench-test1.R

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

"benchstats" <-
structure(c(0.328925666593290, 1.361773719, 2.35485909399999, 
2.905017817, 5.52899987699997, 6.74962981200002, 6.44900819500003, 
8.93038915700002, 8.98999504799997, 11.961565614, 11.567550053, 
15.7992240800000, 16.9442522500000, 0.206015615498089, 0.254427219748402, 
0.275674901128758, 0.291994557182881, 0.505432028484243, 0.599825513774583, 
0.599116612277779, 0.707646133200092, 0.668964478579138, 0.693675845768788, 
0.899031063807028, 0.564875897503258, 0.758890337282891, 0.00206015615498089, 
0.00254427219748402, 0.00275674901128758, 0.00291994557182881, 
0.00505432028484243, 0.00599825513774583, 0.00599116612277779, 
0.00707646133200092, 0.00668964478579138, 0.00693675845768788, 
0.00899031063807028, 0.00564875897503258, 0.00758890337282891, 
0.00258761771180866, 0.00323086392832006, 0.00349439227542114, 
0.00362274300823012, 0.0062281082156432, 0.00760436021782597, 
0.00760672870198849, 0.0090917253449894, 0.00835866060958007, 
0.00865514003580626, 0.0116223001575147, 0.00738127204149733, 
0.00975892410983544), .Dim = as.integer(c(13, 4)), .Dimnames = list(
    c("theta[1]", "theta[2]", "theta[3]", "theta[4]", "theta[5]", 
    "theta[6]", "theta[7]", "theta[8]", "theta[9]", "theta[10]", 
    "theta[11]", "theta[12]", "theta[13]"), c("Mean", "SD", "Naive SE", 
    "Time-series SE")))