counts <- matrix(data=0, nrow=100, ncol=4)
for(i in 1:4) {
counts[, i] <- rpois(100, lambda=50)
}
cond <- c(rep("A", 2), rep("B", 2))
counts <- newSeqExpressionSet(counts, phenoData=data.frame(conditions=cond))
Run the code above in your browser using DataLab