read.tsvs.R
read.tsvs <- function(x=character()){
ori <- list.files(x)
print(ori)
ori <- grep(".tsv.txt",ori,value=T)
if(length(ori) <1 ){break}
tbl <- list()
for(i in 1:length(ori)){
tbl[[i]]<-read.delim(paste(ori[i],sep=""),sep="\t",header=T,row.names=1)
}
return(tbl)
}