ooom(4,homog(3,1))
# How many 2x2 contingency tables of nonnegative integers with rowsums =
# c(2,2) and colsums = c(2,2) are there? Good gives:
(
ooom(2,lone(4,c(1,3))) *
ooom(2,lone(4,c(1,4))) *
ooom(2,lone(4,c(2,3))) *
ooom(2,lone(4,c(2,4)))
)[2,2,2,2]
# easier to use the aylmer package:
if (FALSE) {
library(aylmer)
no.of.boards(matrix(1,2,2))
}
Run the code above in your browser using DataLab