ExprData = read.delim("Data.txt", header=FALSE, sep="\t");
ExprData = as.matrix(ExprData)

GeneCount = dim(ExprData)[1];

for(i in 1:GeneCount)
    ExprData[i,]=ExprData[i,]-mean(t(ExprData[i,]))

write.table(ExprData, file="Out.txt", sep="\t", row.names=FALSE, col.names=FALSE)