showMethods(class="SeqExpressionSet", where=getNamespace("EDASeq"))
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))
data <- newSeqExpressionSet(counts, phenoData=AnnotatedDataFrame(data.frame(conditions=cond)))
head(counts(data))
boxplot(data, col=as.numeric(pData(data)[,1])+1)
Run the code above in your browser using DataLab