# NOT RUN {
Xcat <- matrix(c(sample(x = 1:6, size = 100, replace = TRUE),
sample(x = 1:6, size = 100, replace = TRUE),
sample(x = 1:6, size = 100, replace = TRUE)),ncol = 3)
disjMatrix(Xcat)
# }
Run the code above in your browser using DataLab