Insert value in a Vector Alternately

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
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.
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

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

______________________________________________
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.

Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?
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

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

______________________________________________
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.

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

What is the problem that you are trying to solve?

______________________________________________
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.
_____________________________

Baptiste Augui?

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

Phone: +44 1392 264187

http://newton.ex.ac.uk/research/emag
to avoid the transposition you can use

rbind(matrix(d, nrow=3), 0)

baptiste auguie schrieb:
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

______________________________________________
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.

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

What is the problem that you are trying to solve?

______________________________________________
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.

_____________________________

Baptiste Augui?

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

Phone: +44 1392 264187

http://newton.ex.ac.uk/research/emag

______________________________________________
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.

Eik Vettorazzi
Institut f?r Medizinische Biometrie und Epidemiologie
Universit?tsklinikum Hamburg-Eppendorf

Martinistr. 52
20246 Hamburg

T ++49/40/42803-8243
F ++49/40/42803-7790
An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20090219/b5f213ef/attachment-0001.pl>
actually

 c(rbind(0,matrix(d, nrow=3)))

which has the bonus of giving the desired result ;)

baptiste auguie schrieb:
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

______________________________________________
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.

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

What is the problem that you are trying to solve?

______________________________________________
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.

_____________________________

Baptiste Augui?

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

Phone: +44 1392 264187

http://newton.ex.ac.uk/research/emag

______________________________________________
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.

Eik Vettorazzi
Institut f?r Medizinische Biometrie und Epidemiologie
Universit?tsklinikum Hamburg-Eppendorf

Martinistr. 52
20246 Hamburg

T ++49/40/42803-8243
F ++49/40/42803-7790
thanks all for the correction, funny how it's often the complicated  
solution that comes to mind first.

baptiste

actually

c(rbind(0,matrix(d, nrow=3)))

which has the bonus of giving the desired result ;)

baptiste auguie schrieb:
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

______________________________________________
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.

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

What is the problem that you are trying to solve?

______________________________________________
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.

_____________________________

Baptiste Augui?

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

Phone: +44 1392 264187

http://newton.ex.ac.uk/research/emag

______________________________________________
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.
--
Eik Vettorazzi
Institut f?r Medizinische Biometrie und Epidemiologie
Universit?tsklinikum Hamburg-Eppendorf

Martinistr. 52
20246 Hamburg

T ++49/40/42803-8243
F ++49/40/42803-7790

_____________________________

Baptiste Augui?

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

Phone: +44 1392 264187

http://newton.ex.ac.uk/research/emag
An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20090219/882121f5/attachment-0001.pl>