# Simple example: one 2x2 table with a zero cell
xx <- matrix(c(0, 3, 2, 5), nrow = 1, byrow = TRUE)
nose.or(xx, cc = 0.3)
# Multiple tables example: each row is a separate 2x2 table
tables <- matrix(c(
0, 3, 2, 5,
2, 0, 1, 4,
0, 0, 2, 3
), nrow = 3, byrow = TRUE)
nose.or(tables, cc = 0.3)
Run the code above in your browser using DataLab