dat <- matrix(runif(100*9), ncol = 100, nrow = 27)
myGroup <- rep_len(LETTERS[1:3], 27)
myBatch <- rep(1:3, each = 9, times = 1)
mySeq <- c(1:27)
out <- viewTIC(dat, Group = myGroup, Batch = myBatch, resultBy = "Batch")
Run the code above in your browser using DataLab