multimerge

multimerge.R

multmerge = function(mypath){
    filenames=list.files(path=mypath, full.names=TRUE)
    datalist = lapply(filenames, function(x){read.delim(file=x,header=T)})
    
}

multmerge = function(mypath){
    filenames=list.files(path=mypath, full.names=TRUE)
    datalist = lapply(filenames, function(x){read.table(pipe("cut -f1,2,3,4,5,6 myFile.txt"))})
    Reduce(function(x,y) {merge(x,y)}, datalist)
}

mkdir trimed && for i in *.species; do cut -f1,2,3,4,5,6 $i > trimmed/$i.trimmed; done;
mymergeddata = multmerge("trimmed")
library("plyr")
df<-rbind.fill(mymergeddata)