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.
>
> ______________________________________________
> [email protected] 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]]
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
