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