# NOT RUN {
##Vitamin A example from Balke and Pearl (1997).
n0 <- 74+11514
n1 <- 34+12+2385+9663
p <- c(74/n0, 34/n1, 0, 12/n1, 11514/n0, 2385/n1, 0, 9663/n1)
names(p) <- c("p00.0", "p00.1", "p01.0", "p01.1",
"p10.0", "p10.1", "p11.0", "p11.1")
bounds(data=p)
# }
Run the code above in your browser using DataLab