Message-ID: <OF0D8E483A.FA5800D1-ONC1257562.0027584A-C1257562.0027705D@precheza.cz>
Date: 2009-02-19T07:11:49Z
From: PIKAL Petr
Subject: Odp: Insert value in a Vector Alternately
In-Reply-To: <73f827b50902182247oc515bccr499932c1f202eea5@mail.gmail.com>
Petr Pikal
petr.pikal at precheza.cz
724008364, 581252140, 581252257
r-help-bounces at r-project.org napsal dne 19.02.2009 07:47:40:
> Hi,
>
> I have a vector that look like this:
>
> > dat
> V1 V2 V3 V4 V5 V6
> 0.00377467 0.00377467 0.00377467 0.00380083 0.00380083 0.00380083
> V7 V8 V9 V10 V11 V12
> 0.00380959 0.00380959 0.00380959 0.00380083 0.00380083 0.00380083
>
>
> what I want to do is to insert 0 (zero) for every 3 position yielding:
>
> V1 V2 V3 V4 V5 V6
> V7 V8
> 0 0.00377467 0.00377467 0.00377467 0 0.00380083 0.00380083 0.00380083
> V9 V10 V11 V12 V13 V14
> V15 V16
> 0 0.00380959 0.00380959 0.00380959 0 .00380083 0.00380083 0.00380083
>
>
> Is there a quick way to do it in R?
Use list
y<-rnorm(10)
lll<-split(y,0:9 %/% 3)
unlist(lapply(lll, function(x) c(0,x)))
Regards
Petr
>
> - Gundala Viswanath
> Jakarta - Indonesia
>
> ______________________________________________
> R-help at 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.