inst/classic-bugs/vol1/equiv/bench-test2.R

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

"benchstats" <-
structure(c(0.9792509085, 0.985, 0.137716297340000, 0.123616081710000, 
1.37818835210000, 1.56343460819999, 1.4338874202, 0.0726088470261219, 
0.121558535890182, 0.0430866436963967, 0.0593885108107869, 0.191581993694522, 
0.186234532854242, 0.203312014471999, 0.000726088470261219, 0.00121558535890182, 
0.000430866436963967, 0.000593885108107869, 0.00191581993694522, 
0.00186234532854242, 0.00203312014471999, 0.000823965642919049, 
0.00131637436275614, 0.000720241017507236, 0.00100258690820864, 
0.00216617370586762, 0.00205346443299852, 0.00258485093374419
), .Dim = as.integer(c(7, 4)), .Dimnames = list(c("theta", "equivalence", 
"sigma[1]", "sigma[2]", "Y[1,1]", "Y[3,2]", "Y[6,2]"), c("Mean", 
"SD", "Naive SE", "Time-series SE")))