library(yeastRNASeq)
data(geneLevelData)
mat <- as.matrix(geneLevelData)
data <- newSeqExpressionSet(mat,
phenoData=AnnotatedDataFrame(
data.frame(conditions=factor(c("mut", "mut", "wt", "wt")),
row.names=colnames(geneLevelData))))
plotPCA(data, col=rep(1:2, each=2))
Run the code above in your browser using DataLab