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

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

"benchstats" <-
structure(c(-39.78195973, 22.1563639999999, 5.61572074600001, 
11.2674112279999, 20.89173669, 30.30305659, 47.7235856699999, 
54.0682747900003, 61.0203709099999, 59.91575821, 5.46290001700002, 
3.21766722806389, 1.78729113442940, 1.11927812933685, 1.58244501426013, 
1.90146437382175, 1.69910094896862, 1.79270117272152, 1.26226482340272, 
0.544576304331997, 0.099278599217667, 1.99305423923064, 0.0321766722806389, 
0.0178729113442940, 0.0111927812933685, 0.0158244501426013, 0.0190146437382175, 
0.0169910094896862, 0.0179270117272152, 0.0126226482340272, 0.00544576304331997, 
0.00099278599217667, 0.0199305423923064, 0.0420327471104685, 
0.0232776164723963, 0.0150355693457485, 0.0214338408179069, 0.0257914371218931, 
0.0222954385829914, 0.0220518650852878, 0.0152106906060494, 0.00661779538388414, 
0.00124387178778066, 0.0295307937271591), .Dim = as.integer(c(11, 
4)), .Dimnames = list(c("alpha", "beta", "r.hat[1]", "r.hat[2]", 
"r.hat[3]", "r.hat[4]", "r.hat[5]", "r.hat[6]", "r.hat[7]", "r.hat[8]", 
"D"), c("Mean", "SD", "Naive SE", "Time-series SE")))