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

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

"beta" <-
structure(c(100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 
100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 
100, 100, 100, 100, 100, 100, 100, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6
), .Dim = as.integer(c(30, 2)))
"mu.beta" <-
c(0, 0)
"Omega.beta" <- structure(c(1, 0, 0, 1), .Dim=as.integer(c(2,2)))
"tau.beta" <-
c(1, 1)
"tau.c" <-
1