inde <- c("a","b","c","d","e","f","g") NeanderMatA <- c() for (runIndex in inde) { load(file=paste("NeanderMat",runIndex,".Rda",sep="")) NeanderMatA <- rbind(NeanderMatA,NeanderMat) } NeanderMat <- NeanderMatA colnames(NeanderMat) <- c("allCount1","allCount","ibdC","posAll","#SNPs","#Nea","#Ref","#Alt","#New","NeaR","RefR","AltR","NewR","xAltCon","xRefCon","mAltCon","mRefCon","NeaPosC","AltPosC","RefPosC") save(NeanderMat,file=paste("NeanderMat.Rda",sep=""))