similar to: Color key in Heat map

Hello all, I am trying to perform ANOVA on my sample data given below to see if any gene(column 1 stands for gene names) is differentially expressed after subjecting it to the 6 different experiments(columns 2 to 7 are experiments). Gene 14A_U133A_Detection 14B_U133A_Signal 88A_U133A_Signal 88B_U133A_Signal 183A_U133A_Signal 183B_U133A_Signal AFFX-BioB-5_at 403 409.3 611.5

Hello all, I have a data file table.txt which i have attached. I am trying to pass the columns as arguments to a function "totnorm" where i am displaying a total normalization plot. The function is given below: totnorm<-function(x,y){scale<-sum(x)/sum(y);xlab<-colnames(x);ylab<-colnames(y);x1<-x[[1]];y1<-scale*y[[1]];plot(x1,y1,xlab=xlab,ylab=ylab,col=6, col.lab=4);}

Hello all, I have a data file table.txt which i have attached. I am trying to pass the columns as arguments to a function "totnorm" where i am displaying a total normalization plot. The function is given below: totnorm<-function(x,y){scale<-sum(x)/sum(y);xlab<-colnames(x);ylab<-colnames(y);x1<-x[[1]];y1<-scale*y[[1]];plot(x1,y1,xlab=xlab,ylab=ylab,col=6, col.lab=4);}

I have a data frame which has the following data. data<-read.table("table.txt",header=TRUE) data X14A_U133A_StatPairs X14A_U133A_Detection X14B_U133A_Signal 1 AFFX-BioB-5_at 403.0 409.3 2 AFFX-BioB-M_at 757.3 574.4 3 AFFX-BioB-3_at 284.4 327.3 4 AFFX-BioC-5_at