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