R help - Apr 2012 - Forward of moderated message

One solution among many:

seq(970, 970 - 30*14, by=-30)


If you want to be fancy, a function can be easily written:
seqf <- function(startp, lengthv, byv) {
    seq(startp, startp + (lengthv - 1)*byv, by=byv)
}

seqf(970, 15, -30)
 [1] 970 940 910 880 850 820 790 760 730 700 670 640 610 580 550



Hth,
Adrian

On Fri, Apr 20, 2012 at 13:45,  <r-help-bounces at r-project.org>
wrote:
>
>
> ---------- Forwarded message ----------
> From:?uday <uday_143_4u at hotmail.com>
> To:?r-help at r-project.org
> Cc:
> Date:?Fri, 20 Apr 2012 02:14:03 -0700 (PDT)
> Subject:?vector subtraction
> I would like to calculate vector from existing ?value
> e.g
> v ? ? ? <- 1000
> s ? ? ? <- 30
> d1 ? ?<- v-s
> ? ? ? ? ? ? ? ? ? d1 ? ?<- 970
> d2 ? ?<- d1 -s
> ? ? ? ? ? ? ? ? ? d2 ? ?<- 940
> d 3 ? <- d2-s
> ? ? ? ? ? ? ? ? ? d3 ? ?<- 910
> :
> :
> d15 ? <- .....
>
> so how I should get vector of length 15 ? ? ? ? d < - ?970,940 , 910 ,
> .......
>
> --
> View this message in context:
http://r.789695.n4.nabble.com/vector-subtraction-tp4573299p4573299.html
> Sent from the R help mailing list archive at Nabble.com.
>
>


-- 
Adrian Dusa
Romanian Social Data Archive
1, Schitu Magureanu Bd.
050025 Bucharest sector 5
Romania
Tel.:+40 21 3126618 \
? ? ? ?+40 21 3120210 / int.101
Fax: +40 21 3158391

On Apr 20, 2012, at 6:57 AM, Adrian Du?a wrote:
> One solution among many:
>
> seq(970, 970 - 30*14, by=-30)
>
>
> If you want to be fancy, a function can be easily written:
> seqf <- function(startp, lengthv, byv) {
>    seq(startp, startp + (lengthv - 1)*byv, by=byv)
> }
>
> seqf(970, 15, -30)
> [1] 970 940 910 880 850 820 790 760 730 700 670 640 610 580 550
>
A slightly more verbose but potentially more generalizable solution:

 > Reduce("-", rep(30, 15), init=1000, accumulate=TRUE)
  [1] 1000  970  940  910  880  850  820  790  760  730  700  670   
640  610  580  550

An application to construct a geometrically declining sequence of  
specific length:
 > Reduce("*", rep(.75, 15), init=1000, accumulate=TRUE)
  [1] 1000.00000  750.00000  562.50000  421.87500  316.40625   
237.30469  177.97852  133.48389
  [9]  100.11292   75.08469   56.31351   42.23514   31.67635    
23.75726   17.81795   13.36346

-- 
David.
>
>
> Hth,
> Adrian
>
> On Fri, Apr 20, 2012 at 13:45,  <r-help-bounces at r-project.org>
wrote:
>>
>>
>> ---------- Forwarded message ----------
>> From: uday <uday_143_4u at hotmail.com>
>> To: r-help at r-project.org
>> Cc:
>> Date: Fri, 20 Apr 2012 02:14:03 -0700 (PDT)
>> Subject: vector subtraction
>> I would like to calculate vector from existing  value
>> e.g
>> v       <- 1000
>> s       <- 30
>> d1    <- v-s
>>                   d1    <- 970
>> d2    <- d1 -s
>>                   d2    <- 940
>> d 3   <- d2-s
>>                   d3    <- 910
>> :
>> :
>> d15   <- .....
>>
>> so how I should get vector of length 15         d < -  970,940 ,  
>> 910 ,
>> .......
>>
>> --
>> View this message in context:
http://r.789695.n4.nabble.com/vector-subtraction-tp4573299p4573299.html
>> Sent from the R help mailing list archive at Nabble.com.
>>
>>
>
>
>
> -- 
> Adrian Dusa
> Romanian Social Data Archive
> 1, Schitu Magureanu Bd.
> 050025 Bucharest sector 5
> Romania
> Tel.:+40 21 3126618 \
>        +40 21 3120210 / int.101
> Fax: +40 21 3158391
>
> ______________________________________________
> 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.
David Winsemius, MD
West Hartford, CT