2009/2/19 baptiste auguie <ba208@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 <gundalav@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]]

