编辑代码

ret <- list(
    c(1,1),
    c(2,2),
    c(3,3),
    c(4,4)
)

temp = vector()
result =data.frame()
for (i in 1:length(ret)){
        
    for (chr in 1:length(ret)){

    temp =  append(temp, ret[[chr]])
    

    }
        result= rbind(result,temp)
    }

result

 save(cand,"test4/cand.Rdata")  
        n_chr <- length(cand[[1L]]) #个体数目 
        ret <- vector(mode = 'list', length = n_chr)
         #修改的地方 
        for (i in 1:length(cand)) {
       # write.table(cand[[i]], paste("test3/child_cyc_new",cyc,".csv",sep = ""),col.names = F)
        cand1 = cand[i]
        for( chr in length(n_chr) ){ 
        cand2 = cand1[chr]
        #pre = 2*i-1
        #lat = 2*i
        ret[[chr]] = cand2[[1]] + cand2[[2]]
        }
        write.table(ret, "test3/ret.csv",append = T)
        #myString[i] = myString[[pre]]+ myString[[lat]]
        #}
        }