script for making dilution eset

Former-commit-id: dffa945
DominiqueLoyer · Feb 3, 2014 · 6c03242 · 6c03242
1 parent ee3381f
commit 6c03242
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/Rscripts/dilution.R b/Rscripts/dilution.R
@@ -0,0 +1,5 @@
+library(affy)
+fns <- list.celfiles(path="CEL",full=TRUE)
+CelData <- ReadAffy(filenames=fns,verbose=TRUE)
+dilution <- rma(CelData,verbose=TRUE)
+save(dilution, file="dilution.RData")