Here is a way: x <- 1:10 mySeq <- c(42,42) byTwo <- rep(seq(length(x) + 1), each=2)[1:length(x)] y <- lapply(split(x, byTwo), function(a){ c(a, mySeq) }) unlist(y)
On 12/10/05, Judy Chung <[EMAIL PROTECTED]> wrote: > > Dear R users: > > > append(1:5, 0:1, after=2) > [1] 1 2 0 1 3 4 5 > > If I want to repeat the appended value every 2 like the following: > [1] 1 2 0 1 3 4 0 1 5 > > How should I modify? > Thank you for any help. > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! > http://www.R-project.org/posting-guide.html > -- Jim Holtman Cincinnati, OH +1 513 247 0281 What the problem you are trying to solve? [[alternative HTML version deleted]] ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html