MAS5

QC
rm(list=ls())
library(affy)
library(simpleaffy)
setwd("/home/leiz/SG201")

data <- ReadAffy()
data <- ReadAffy()

data.mas5 <- mas5(data)
## Or you can try mas5
genes <- log2(as.matrix(exprs(data.mas5 )))
write.table(genes, file="SG201.mas5.txt", sep="\t")