r - `rbind` dataset by sequence in a directory -

i have data set identical row , row numbers. want rbind data in sequence of two.

for example data 5lstt-test12_1.avgm , 5lstt-test12_1_sum.avgm first want merge them using rbind , save them new name let's test12.avgm. process should done each 2 file inside same directory.

i have checked on net of solutions merging data single file. don't know how merge 2 data , save them single data , process files in path.

the data set goes

5lstt-test12_1.avgm    5lstt-test12_1_sum.avgm   5lstt-test13_1.avgm    5lstt-test13_1_sum.avgm   .   .    .   .   5lstt-test30_1.avgm    5lstt-test30_1_sum.avgm   

assuming vector of object names ('v1') ordered, can split 2 element each list element using gl. not sure if these objects in global environment. in case, can use mget , replace do.call(rbind, lapply(x, read.table) do.call(rbind, mget(x))

lst <- lapply(split(v1,as.numeric(gl(length(v1), 2, length(v1)))),                 function(x) do.call(rbind,lapply(x, read.table))) 

change names of 'lst' 'nm1'

nm1 <- sprintf('test%d.avgm', 12:30) names(lst) <- nm1 

if need create new files, can do:

lapply(seq_along(lst), function(i) write.table(lst[[i]],                       paste0(nm1[i],'.txt'), quote=false)) 

data

v1 <- sort(sprintf('5lstt-test%d_1.%s', 12:30,                rep(c('avgm', 'sum.avgm'),each=19)))