On Thu, Apr 4, 2013 at 5:53 PM, R. Michael Weylandt <
michael.weylandt@gmail.com> wrote:

> On Thu, Apr 4, 2013 at 7:46 PM, Abhishek Pratap <abhishek.vit@gmail.com>
> wrote:
> > Hey Guys
> >
> > Getting spinned about a slick way to join every 2 entry in a list /
> vector
> > in R
> >
> > x=(rep(c('A','G','C','T'),1000))
> >
> > A G C T  A G C T etc
> >
> > form another list with entries as
> > AG CT AG etc
>
> Not super slick but:
>
> by_two <- function(x, collapse = ""){
>    dim(x) <- c(length(x) / 2, 2)
>    apply(x, 1, function(y) paste(y, collapse = collapse))
> }
>
> Cheers,
> MW
>

Thanks.. just wondering if this will be slick for list/vectors with 100
thousands of entries. ?

-Abhi

	[[alternative HTML version deleted]]

