######## justRMA #############

setwd("D:\\Women cancer\\ovary")

rm(list=ls())

memory.limit(size=2000)

memory.size()

library(affy)

CELNames<-dir(".", "[.]CEL")

CELNames<-CELNames[1:145]

data <- justRMA(filenames=CELNames)
## 完成到此即成功 ##


CelData <- exprs(data)

write.table(CelData,"CelData.txt", sep="\t")

## total about 145 .CELs