2 function(path,Name1,Name2,type)
10 Filenames=c(Filenames,paste(path,Name1,name,"_isoform_nus.tab",sep=""))
12 Filenames=c(Filenames,paste(path,Name1,name,"_gene_nus.tab",sep=""))
13 Tablenames=c(Tablenames,paste(Name1,name,sep=""))
18 Filenames=c(Filenames,paste(path,Name2,name,"_isoform_nus.tab",sep=""))
20 Filenames=c(Filenames,paste(path,Name2,name,"_gene_nus.tab",sep=""))
21 Tablenames=c(Tablenames,paste(Name2,name,sep=""))
25 names(Data)=Tablenames
28 temp=read.table(Filenames[file],header=T)
29 temp2=as.matrix(temp[-1])
30 rownames(temp2)=as.vector(as.matrix(temp[1]))