ZC=read.csv("正常样本.csv",header='T')

AZ=read.csv("癌症样本.csv",header='T')

szc=ZC[,c(-1,-2)]

sac=AZ[,c(-1,-2)]

mzc=rowMeans(szc)

mac=rowMeans(sac)

mzc<- matrix(c(1:6),2,3)

mac <- matrix(c(2:7),2,3)

re=log((mac/mzc),2)