data(VEGFmouse)
## Testing if there is no tissue effect on the mean expression level for each gene.
tistest <- meanmat.ts(VEGFmouse,40,group.sizes=9,voi="columns")
tistest
## Testing if the adrenal and the cerebrum tissues have the same mean vector.
tistest2 <- meanmat.ts(VEGFmouse,40,group.sizes=c(2,rep(1,7)),voi="columns")
tistest2
Run the code above in your browser using DataLab