inst/classic-bugs/vol2/pigs/pigs-data.R

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

"p.mendelian" <-
structure(c(1, 0.5, 0, 0.5, 0.25, 0, 0, 0, 0, 0, 0.5, 1, 0.5, 
0.5, 0.5, 1, 0.5, 0, 0, 0, 0, 0, 0.25, 0.5, 0, 0.5, 1), .Dim = as.integer(c(3, 
3, 3)))
"p.recessive" <-
structure(c(1, 1, 0, 0, 0, 1), .Dim = as.integer(c(3, 2)))
"A1" <-
1
"B1" <-
1
"C1" <-
1
"D1" <-
1
"E1" <-
1
"F1" <-
1
"G1" <-
1
"H1" <-
1
"J1" <-
2