inst/classic-bugs/vol2/schools/schools-inits.R

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

"theta" <-
0
"phi" <-
0.01
"gamma" <-
c(0, 0, 0)
"beta" <-
c(0, 0, 0, 0, 0, 0, 0, 0)
"T" <-
structure(c(10, -3, -3, -3, 135, -65, -3, -65, 135), .Dim = as.integer(c(3, 
3)))
"alpha" <-
structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = as.integer(c(38, 
3)))