mat1 <- matrix(rep(11:24,3)[1:40], byrow=TRUE, ncol=8)
dimnames(mat1) <- list(letters[1:nrow(mat1)], paste(rep(LETTERS[3:1], each=3)[-1],
rep(1:3, 3)[-1], sep="."))
checkGrpOrderSEM(mat1, grp=gl(3,3, labels=LETTERS[3:1])[-1])
Run the code above in your browser using DataLab