## Not run:
# MA <- normalizeWithinArrays(RG)
# design <- cbind(c(1,1,1,0,0,0),c(0,0,0,1,1,1))
# fit <- lmFit(MA,design=design)
# contrasts.mouse <- cbind(Control=c(1,0),Mutant=c(0,1),Difference=c(-1,1))
# fit <- eBayes(contrasts.fit(fit,contrasts=contrasts.mouse))
# results <- decideTests(fit,method="global",p=0.1)
# heatDiagram(results,fit$coef,primary="Difference")
# ## End(Not run)
Run the code above in your browser using DataLab