Insert value in a Vector Alternately

Perhaps you can try this,

d <- c(0.00377467,  0.00377467,  0.00377467,  0.00380083,  
0.00380083,  0.00380083,
0.00380959,  0.00380959,  0.00380959,  0.00380083,  0.00380083,  
0.00380083)

c( t( cbind(matrix(d, ncol=3, byrow=T), 0)))

I don't know how to avoid the transpose operation that might slow 
things down in large cases.

Hope this helps,

baptiste



On 19 Feb 2009, at 12:47, jim holtman wrote:

How about this:

dat<-c(0.00377467,0.00377467,0.00377467,0.00380083,0.00380083,0.00380083,0.00380959, 

+ 0.00380959,0.00380959,0.00380083,0.00380083,0.00380083)

dat[seq(1, by=3, to=length(dat))] <- 0
dat

[1] 0.00000000 0.00377467 0.00377467 0.00000000 0.00380083 0.00380083
0.00000000 0.00380959 0.00380959 0.00000000 0.00380083
[12] 0.00380083

On Thu, Feb 19, 2009 at 1:47 AM, Gundala Viswanath 
<gundalav at gmail.com> wrote:

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?

- Gundala Viswanath
Jakarta - Indonesia

-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?