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

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

`benchstats` <-
structure(c(0.42382042025, 0.4377829274, 0.538904343, 0.40203586405, 
0.357519049175, -1.565125055, -0.6035722765, -0.151535358, -0.776599198, 
-1.200902816, 0.143190951327748, 0.125869208062981, 0.138624783895786, 
0.112541518471018, 0.119055422017924, 0.102861100560908, 0.0542412247981261, 
0.0468924616912136, 0.0547162980722578, 0.0696684630508961, 0.00320184700931708, 
0.00281452105502891, 0.00309974440157196, 0.00251650485592244, 
0.00266216016722003, 0.00230004413094633, 0.00121287065831457, 
0.00104854731973858, 0.00122349361966709, 0.00155783419269736, 
0.0051087236583542, 0.00537562807999470, 0.00607684780270575, 
0.0038862412944952, 0.00441051725572559, 0.00320430784800624, 
0.00172054464945230, 0.00106690448095881, 0.00155815037634831, 
0.00215085570396166), .Dim = c(10L, 4L), .Dimnames = list(c("delta[1]", 
"delta[2]", "delta[3]", "delta[4]", "delta[5]", "eta[1]", "eta[2]", 
"eta[3]", "eta[4]", "eta[5]"), c("Mean", "SD", "Naive SE", "Time-series SE"
)))