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

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

benchstats <-
structure(c(0.7005387375, 3.873320955, 5.206269915, 1.0283977477, 
0.2624236608034, 0.1276320868335, -0.233013591116, 1.171782081, 
0.142631898325306, 0.371865965473283, 0.505796231861533, 0.30728371221228, 
0.24217635612783, 0.251779866910146, 0.195536827022521, 0.286622924635357, 
0.00318934620415223, 0.0083151757731685, 0.0113099475720563, 
0.00687107268885141, 0.00541522794845025, 0.00562996897776936, 
0.00437233637326975, 0.00640908343394458, 0.00885413896174261, 
0.0289089064309517, 0.0339496360433297, 0.0208992853506661, 0.0160157943725557, 
0.0218721586186754, 0.00605072817987232, 0.0248607517170521), .Dim = c(8L, 
4L), .Dimnames = list(c("a[1]", "a[2]", "a[3]", "beta", "kappa", 
"log.sigma", "pi", "sigma"), c("Mean", "SD", "Naive SE", "Time-series SE"
)))