The last one can be shortened to: > c(aperm(array(1:4, c(2,2,6)),c(1,3,2))) [1] 1 2 1 2 1 2 1 2 1 2 1 2 3 4 3 4 3 4 3 4 3 4 3 4
And it extends to 38 fairly easily: > c(aperm(array(1:38, c(2,38/2,6)),c(1,3,2))) [1] 1 2 1 2 1 2 1 2 1 2 1 2 3 4 3 4 3 4 3 4 3 4 3 4 5 [26] 6 5 6 5 6 5 6 5 6 5 6 7 8 7 8 7 8 7 8 7 8 7 8 9 10 [51] 9 10 9 10 . . . -- Gregory (Greg) L. Snow Ph.D. Statistical Data Center Intermountain Healthcare [EMAIL PROTECTED] (801) 408-8111 > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Greg Snow > Sent: Thursday, January 24, 2008 1:33 PM > To: David Afshartous; r-help@r-project.org > Subject: Re: [R] Alternating numbers in rep() > > Here are a couple of options (I'm sure there are plenty of > others) that replicate your results and can be extended > without too much more typing (but some arithmatic): > > > unname(unlist( rep( as.data.frame( matrix(1:4, nrow=2) ) , > each=6 ) )) > [1] 1 2 1 2 1 2 1 2 1 2 1 2 3 4 3 4 3 4 3 4 3 4 3 4 > > c(aperm(array(rep( 1:4, 6), c(2,2,6)),c(1,3,2))) > [1] 1 2 1 2 1 2 1 2 1 2 1 2 3 4 3 4 3 4 3 4 3 4 3 4 > > Hope this helps, > > -- > Gregory (Greg) L. Snow Ph.D. > Statistical Data Center > Intermountain Healthcare > [EMAIL PROTECTED] > (801) 408-8111 > > > > > -----Original Message----- > > From: [EMAIL PROTECTED] > > [mailto:[EMAIL PROTECTED] On Behalf Of David Afshartous > > Sent: Thursday, January 24, 2008 1:03 PM > > To: r-help@r-project.org > > Subject: [R] Alternating numbers in rep() > > > > > > All, > > > > I'm trying to obtain a one-liner to generate a certain sequence of > > alternatign numbers. > > > > Consider: > > > unlist(rep(list(c(1,2), c(3,4)), each = 6)) > > [1] 1 2 1 2 1 2 1 2 1 2 1 2 3 4 3 4 3 4 3 4 3 4 3 4 > > > > I'd like the result to be as above but continue until 38. > Of course, > > I could hardcode this going up to c(37,38), but is there a more > > elegant way? > > > > > > Thanks! > > David > > > > ______________________________________________ > > 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. > > > > ______________________________________________ > 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. > ______________________________________________ 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.
