----- Original Message ----- From: "baptiste auguie" <ba...@exeter.ac.uk> To: "Gundala Viswanath" <gunda...@gmail.com> Cc: "r-h...@stat.math.ethz.ch R-help" <r-h...@stat.math.ethz.ch> Sent: Thursday, February 19, 2009 7:12:23 AM GMT -06:00 US/Canada Central Subject: Re: [R] 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. --- This seems to "work": c(0,c(rbind(matrix(d,nrow=3),0))) -- David Winsemius --- 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 > <gunda...@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@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@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@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. [[alternative HTML version deleted]]
______________________________________________ R-help@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.
