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

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

`benchstats` <-
structure(c(5.254817041, 2.214157841, -5.860410139, 0.23265311001, 
0.13371480616, 0.1001825476, 8.055812192, 0.129185436223467, 
0.121008288926782, 0.105850857526118, 0.126178766630887, 0.109370060863441, 
0.0845108559381675, 1.23603736962342, 0.00129185436223467, 0.00121008288926782, 
0.00105850857526118, 0.00126178766630887, 0.00109370060863441, 
0.000845108559381675, 0.0123603736962342, 0.00536652167265231, 
0.00824408797381219, 0.0109455627018243, 0.00385926935374009, 
0.00383472494693853, 0.00612342043876554, 0.0341873514432241), .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")))