setwd(“F:\������ʦ_���߷ΰ�\ɸѡ�����������.CEL\ɸѡ�����������”) rawdata <- ReadAffy() eset <- rma(rawdata) write.exprs(eset,”imm_tanzhen.txt”)