Blood ell ! Thanks very much, it does help give a
feel for what's happening. I'll have to do some
experimenting.
--- Henrique Dallazuanna <[EMAIL PROTECTED]> wrote:
> A example:
>
> x <- rnorm(5)
>
> x[3]
> `[`(x, 3)
> `[[`(x, 3)
>
> x[3:4]
> `[`(x, 3:4)
> `[[`(x, 3:4) # Error
>
>
> On 13/03/2008, John Kane <[EMAIL PROTECTED]> wrote:
> > Ah ?Extract. Thanks
> >
> > Unless I'm missing something there is nothing in
> the
> > Usage or Examples to suggest to a naive reader
> like me
> > that one can use an unbalanced [ or [[, that is
> > withoug a corresponding ] or ]].
> >
> > I probably am just not understanding the details.
> >
> >
> > --- Henrique Dallazuanna <[EMAIL PROTECTED]>
> wrote:
> >
> > > On 13/03/2008, John Kane <[EMAIL PROTECTED]>
> wrote:
> > > > My thanks to Henrique Dallazuanna and Phil
> > > Spector.
> > > > Both solutions worked well.
> > > > Phil suggested that an alterative to my
> function
> > > would
> > > > be
> > > > vect1 = sapply(mylist,'[[',1)
> > > > and I see that Henrique used `[` in his
> solution.
> > > >
> > > > Can you point me to some documentation that
> > > discusses
> > > > these usages. I have seen them before but I
> have
> > > never
> > > > actually figured out how to use them.?
> > >
> > > See ?Extract
> > >
> > > >
> > > > Thanks.
> > > >
> > > > Problem and solutions
> > > >
> > >
> >
>
========================================================
> > > > mylist <- list(aa=c("cat","peach" ),
> bb=c("dog",
> > > > "apple", "iron"),
> > > > cc = c("rabbit", "orange", "zinc",
> > > "silk"))
> > > > myfun <- function(dff) dff[1]
> > > > vect1 <- unlist(lapply(mylist, myfun))
> > > >
> > > > # Desired output
> > > > t(cbind( c("cat" , "peach" , NA, NA), bbb
> <-
> > > c("dog"
> > > > , "apple" ,"iron", NA),
> > > > ccb <- c("rabbit" ,"orange" ,"zinc" ,
> "silk" )))
> > > >
> > > > # Phil Spector's approach
> > > > mlen = max(sapply(mylist,length))
> > > > eqlens =
> lapply(mylist,function(x)if(length(x) <
> > > mlen)
> > > >
> > > > c(x,rep('',mlen-length(x))) else x)
> > > > do.call(rbind,eqlens)
> > > >
> > > > # "Henrique Dallazuanna"
> <[EMAIL PROTECTED]>
> > > > # I added the t()
> > > > t(as.data.frame(lapply(mylist, `[`,
> > > > 1:max(unlist(lapply(mylist,
> > > > length))))))
> > > >
> > > >
> > > > Looking for the perfect gift? Give the
> gift
> > > of Flickr!
> > > >
> > > > http://www.flickr.com/gift/
> > > >
> > > >
> > >
> > >
> > > --
> > > Henrique Dallazuanna
> > > Curitiba-Paran�-Brasil
> > > 25� 25' 40" S 49� 16' 22" O
> > >
> >
> >
> >
> >
> >
> ____________________________________________________
> the web, and bookmark your favourite sites. Download
> it now at
> > http://ca.toolbar.yahoo.com.
> >
>
>
> --
> Henrique Dallazuanna
> Curitiba-Paran�-Brasil
> 25� 25' 40" S 49� 16' 22" O
>
[[elided trailing spam]]
______________________________________________
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.
