inst/classic-bugs/vol2/orange/mvotree-data.R

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

"n" <-
7
"K" <-
5
"x" <-
c(118, 484, 664, 1004, 1231, 1372, 1582)
"Y" <-
structure(c(30, 33, 30, 32, 30, 58, 69, 51, 62, 49, 87, 111, 
75, 112, 81, 115, 156, 108, 167, 125, 120, 172, 115, 179, 142, 
142, 203, 139, 209, 174, 145, 203, 140, 214, 177), .Dim = as.integer(c(5, 
7)))
"mean" <-
c(0, 0, 0)
"R" <-
structure(c(0.1, 0, 0, 0, 0.1, 0, 0, 0, 0.1), .Dim = as.integer(c(3, 
3)))
"prec" <-
structure(c(1e-06, 0, 0, 0, 1e-06, 0, 0, 0, 1e-06), .Dim = as.integer(c(3, 
3)))