resU <- data.frame()

listFiles <- list.files('./inputs')

# restoring the order first

orderVec <- c()

for (i in list.files('./inputs')) {
    load(file.path('.', 'inputs',i))
    orderVec <- c(orderVec, res$ID[1]);
    rm(res)
    }

listFilesReOrder <- listFiles[order(orderVec)]

for (i in listFilesReOrder) {
    load(file.path('.', 'inputs',i))
    resU<- rbind(resU, res);
    rm(res)
    }

res <-resU

save(res, file = 'csopraRes.Rdata')