# NOT RUN {
# Two first-order differential tables:
tables <- list(
matrix(c(30,0,0,
0,10,0,
0,0,20), nrow=3),
matrix(c(10,0,0,
0,20,0,
0,0,30), nrow=3)
)
marginal.change.test(tables)
# Tables differ in the second-order but not first-order:
tables <- list(
matrix(c(4,0,0,
0,4,0,
0,0,4), nrow=3),
matrix(c(0,0,4,
0,4,0,
4,0,0), nrow=3)
)
marginal.change.test(tables)
# }
Run the code above in your browser using DataLab