[R] rbinding some elements from a list and obtain another list

[De Castro Pascual, Montserrat]

Wow! It's true!!!

Many thanks!!!

montserrat

-----Mensaje original-----
De: MacQueen, Don [mailto:macqueen1 en llnl.gov]
Enviado el: lunes, 29 de abril de 2013 22:39
Para: De Castro Pascual, Montserrat; r-help en r-project.org
Asunto: Re: [R] rbinding some elements from a list and obtain another list

In addition to the other responses, consider this:

> i <- 3
> i:i+1
[1] 4
> i:(i+1)
[1] 3 4

-Don


--
Don MacQueen

Lawrence Livermore National Laboratory
7000 East Ave., L-627
Livermore, CA 94550
925-423-1062





On 4/29/13 6:54 AM, "De Castro Pascual, Montserrat" <mdecastro en creal.cat>
wrote:

>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]]
>