# NOT RUN {
## generate a contingency table
x1=c(10,12, 17, 30)
x2=c( 9, 9, 11, 35)
x3=c( 7, 8, 12, 43)
data = rbind(x1,x2,x3)
## without ordered categories
permu_table(data)
## with ordered column categories
permu_table(data , col = c(1,2,3,4) )
## with ordered row categories
permu_table(data , row = c(1,2,3))
## with ordered row and column categories
permu_table(data , col = c(1,2,3,4),row = c(1,2,3),fix = "row")
# }
Run the code above in your browser using DataLab