2009/2/19 baptiste auguie <ba...@exeter.ac.uk> > 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
Like that ? c(rbind(matrix(dat, nrow = 3), 0)) david > > > 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.
