library(affyPara)
if (require(affydata)) {
data(Dilution)
#split AffyBatch
abatch.list<- splitAffyBatch(Dilution, 2)
#Merge AffyBatch
AffyBatch <- mergeAffyBatches(abatch.list)
# Create matrices
a <- matrix(1:25, nrow=5)
b <- matrix(101:125, nrow=5)
matrix.list <- list(a,b)
# Combine matrices
combineMatrices(matrix.list)
}
Run the code above in your browser using DataLab