Wow! It's true!!! Many thanks!!!
montserrat -----Mensaje original----- De: MacQueen, Don [mailto:macque...@llnl.gov] Enviado el: lunes, 29 de abril de 2013 22:39 Para: De Castro Pascual, Montserrat; r-help@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" <mdecas...@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]] > ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
