Tengo como ejemplo la siguiente lista:
>lista
[[1]]
row col
[1, ] 4 453
[2, ] 5 453
[[2]]
row col
[1, ] 26 264
[2, ] 26 265
[3, ] 26 266
[4, ] 27 265
[5, ] 27 266
[[3]]
row col
[1,] 35 364
[1,] 35 365
[2,] 35 366
el objetivo es, combinar los elementos de la lista, de la forma: lista[[1]] con lista[[2]], lista[[1]] con lista[[3]] sucesivamente (tengo una lista del orden de cinco mil elementos o más).
El resultado esperado es:
[[1]]
row col
[1, ] 4 453
[2, ] 5 453
[3, ] 26 264
[4, ] 26 265
[5, ] 26 266
[6, ] 27 265
[7, ] 27 266
[[2]]
row col
[1, ] 4 453
[2, ] 5 453
[3, ] 35 364
[4, ] 35 365
[5, ] 35 366
.
.
.
Entonces, tengo la siguiente función que realiza el trabajo, pero, como la cantidad de elementos de la lista es muy grande, este proceso tarda mucho tiempo.
rows_bind <- function(all_GG){
nn_GG <- length(all_GG)
lista_analizar <- list()
cont <- 1
repeat {
lista_analizar[[cont]] <- rbind(all_GG[[1]], all_GG[[cont+1]])
cont = cont + 1
if (cont == nn_GG){
break
}
}
return(lista_analizar)
}
Mi pregunta es: ¿como puedo optimizar la función creada? para usarlo dentro de una función como lapply o sapply. O mejor aún usar parSapply() o parLapply()