Hi everybody,



I have a list, where every element of this list is a data frame.



An example:



Mylist<-list(A=data.frame, B=data.frame, C=data.frame, D=data.frame)



I want to rbind some elements of this list.

As an example:



Output<-list(AB=data.frame, CD=data.frame)



Where

AB=rbind(A,B)

CD=rbind(C,D)





I’ve tried:



f<-function(x){

  for (i in seq(1,length(names(x)),2)){

    aa<-do.call(rbind,x[i:i+1])

    aa

  }}

bb<-f(mylist)



or



f<-function(x){

  for (i in seq(1,length(names(x)),2)){

    aa[i]<-do.call(rbind,x[i:i+1])

    list(aa[i])

    }}

bb<-f (mylist)



but it doesn’t works!!!!



f<-function(x){

+   for (i in seq(1,length(names(x)),2)){

+     aa<-do.call(rbind,x[i:i+1])

+     aa

+   }}

> bb<-f(mylist)

> bb

NULL

> f<-function(x){

+   for (i in seq(1,length(names(x)),2)){

+     aa<-do.call(rbind,x[i:i+1])

+     aa

+   }}

> bb<-f(mylist)

>

> f<-function(x){

+   for (i in seq(1,length(names(x)),2)){

+     aa[i]<-do.call(rbind,x[i:i+1])

+     list(aa[i])

+   }}

> bb<-f(mylist)

Mensajes de aviso perdidos

1: In aa[i] <- do.call(rbind, x[i:i + 1]) :

  número de items para para sustituir no es un múltiplo de la longitud del
reemplazo

2: In aa[i] <- do.call(rbind, x[i:i + 1]) :

  número de items para para sustituir no es un múltiplo de la longitud del
reemplazo

3: In aa[i] <- do.call(rbind, x[i:i + 1]) :

  número de items para para sustituir no es un múltiplo de la longitud del
reemplazo

4: In aa[i] <- do.call(rbind, x[i:i + 1]) :

  número de items para para sustituir no es un múltiplo de la longitud del
reemplazo

5: In aa[i] <- do.call(rbind, x[i:i + 1]) :

  número de items para para sustituir no es un múltiplo de la longitud del
reemplazo

6: In aa[i] <- do.call(rbind, x[i:i + 1]) :

  número de items para para sustituir no es un múltiplo de la longitud del
reemplazo





Thanks!



Montserrat




	[[alternative HTML version deleted]]

