# NOT RUN {
# Type-null tables:
tables <- list(
matrix(c(7, 4, 1,
3, 6, 9,
2, 4, 4), nrow=3),
matrix(c(2, 1, 2,
2, 0, 8,
6, 2, 7), nrow=3)
)
type.analysis(tables, alpha = 0.05)
# Type-0 tables:
tables <- list(
matrix(c(30,0,0,
0,10,0,
0,0,20), nrow=3),
matrix(c(30,0,0,
0,10,0,
0,0,20), nrow=3)
)
type.analysis(tables, alpha = 0.05)
# Type-1 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)
)
type.analysis(tables, alpha = 0.05)
# Type-2 differential tables:
tables <- list(
matrix(c(4,0,0,
0,4,0,
0,0,4), nrow=3),
matrix(c(0,4,4,
4,0,4,
4,4,0), nrow=3)
)
type.analysis(tables, alpha = 0.05)
# }
Run the code above in your browser using DataLab