EBSeq/R/GetData.R

   1 GetData <-
   2 function(path,Name1,Name2,type)
   3 {
   4 Data=vector("list",8)
   5 Filenames=NULL
   6 Tablenames=NULL
   7 for (name in 1:4)
   8         {
   9                 if (type=="I")
  10                         Filenames=c(Filenames,paste(path,Name1,name,"_isoform_nus.tab",sep=""))
  11                 if (type=="G")
  12                         Filenames=c(Filenames,paste(path,Name1,name,"_gene_nus.tab",sep=""))
  13                 Tablenames=c(Tablenames,paste(Name1,name,sep=""))
  14         }
  15 for (name in 1:4)
  16         {
  17                 if (type=="I")
  18                         Filenames=c(Filenames,paste(path,Name2,name,"_isoform_nus.tab",sep=""))
  19                 if (type=="G")
  20                         Filenames=c(Filenames,paste(path,Name2,name,"_gene_nus.tab",sep=""))
  21                 Tablenames=c(Tablenames,paste(Name2,name,sep=""))
  22         }
  23
  24
  25 names(Data)=Tablenames
  26 for (file in 1:8)
  27         {
  28                 temp=read.table(Filenames[file],header=T)
  29                 temp2=as.matrix(temp[-1])
  30                 rownames(temp2)=as.vector(as.matrix(temp[1]))
  31                 Data[[file]]=temp2
  32         }
  33         Data
  34 }
  35