# NOT RUN {
x <- rep(c('A','B','C'),3)
y <- rep(c(11,22,11),3)
z <- c(1,1,1,2,2,2,3,3,3)
zy <- paste(z,y,sep='')
m <- cbind(x,y,z,zy)
FindDimLists(m)
FindDimLists(m, total = paste0("A", 1:4))
# }
Run the code above in your browser using DataLab