This isn't a single function but its a simple expression:
x <- ts(1:10) # test data
x + lag(x)
On 1/25/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I wonder if the following function has already been implemented in (some) R
> (package):
>
> summ <- function(x, lag=1) # x is a vector
> {
> n <- length(x)
> x[(1+lag):n] + x[1:(n-lag)]
> }
>
> which (I think) the only difference from diff() is "+" instead of "-", for
> differences=1.
>
> Thank you,
> Dimitri Szerman
>
> ______________________________________________
> [email protected] mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
>
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
