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

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

"benchstats" <-
structure(c(0.152032813946630, 0.312715960600001, 0.387686667999999, 
0.14756456894, 0.589807339199998, 0.410192660800002, 0.3410656107, 
0.03653718805, 0.622397190700002, 0.0997713319289999, 0.0221824986992801, 
0.205683540700000, 0.672362634200002, 0.0509796278475667, 0.0557777431141144, 
0.0439986353630582, 0.0295731195010890, 0.0670999159366345, 0.0670999159366345, 
0.0455263042833560, 0.0174653831253206, 0.0474693231343509, 0.0433214410017968, 
0.0231886179765215, 0.0614963669217163, 0.0739151316257173, 0.000509796278475667, 
0.000557777431141144, 0.000439986353630582, 0.000295731195010890, 
0.000670999159366345, 0.000670999159366345, 0.000455263042833560, 
0.000174653831253206, 0.000474693231343509, 0.000433214410017968, 
0.000231886179765215, 0.000614963669217163, 0.000739151316257173, 
0.000858580651598952, 0.000870727259916666, 0.00056405342755453, 
0.000337532197873589, 0.00106900053972342, 0.00106900053972342, 
0.000652349629724956, 0.000238515647426142, 0.000687424209336432, 
0.000542801518155126, 0.000326910488707155, 0.000839194832420192, 
0.00104039616788912), .Dim = as.integer(c(13, 4)), .Dimnames = list(
    c("p[1]", "p[2]", "p[3]", "p[4]", "error[2,1]", "error[2,2]", 
    "error[3,1]", "error[3,2]", "error[3,3]", "error[4,1]", "error[4,2]", 
    "error[4,3]", "error[4,4]"), c("Mean", "SD", "Naive SE", 
    "Time-series SE")))