## =====================================================
## Example 1. Computing the orthant probability
## =====================================================
x <- matrix(c(15,26,23,19,
26,47,46,35,
23,46,65,38,
19,35,38,33), nrow =4)
y <- c(1,2,3,4)
hgm.ncorthant(x,y)
Run the code above in your browser using DataLab