## Not run:
#
# # 2x2 independence example
# # following convention, the first index indicates rows
# varlvls <- c(2,2)
# facets <- list(1,2)
# ( A <- hmat(varlvls, facets) )
# markov(A)
# markov(A, "vec")
# markov(A, "tab", varlvls)
# markov(A, "tab", varlvls, TRUE)
# tableau(markov(A), varlvls)
#
#
#
#
#
#
# # LAS example 1.2.12, p.17 (no 3-way interaction)
# varlvls <- c(2,2,2)
# facets <- list(c(1,2), c(1,3), c(2,3))
# ( A <- hmat(varlvls, facets) )
# markov(A)
#
#
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab