######### MAS5 ###################


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

rm(list=ls())

memory.limit(size=2000)

memory.size()

library(affy)

fileNames<-dir(".", "[.]CEL")[1:10]

LatinData<-ReadAffy(filenames=fileNames)  ###  Read CEL files

str(LatinData)

k<-LatinData@exprs 

LatinData.mas5<-expresso(LatinData, pmcorrect.method="mas", bgcorrect.method="mas", summary.method="mas")

LatinData.mas5.norm<-affy.scalevalue.exprSet(LatinData.mas5, sc=500)  
## 完成到此即成功 ##