Message-ID: <XFMail.20131214105404.Ted.Harding@wlandres.net>
Date: 2013-12-14T10:54:04Z
From: (Ted Harding)
Subject: iterated sum
In-Reply-To: <tencent_4EACA09A7136C89765BAF0BB@qq.com>
On 14-Dec-2013 10:46:10 ???????? wrote:
> x<-c(1,4,9,20,3,7)
> i want to get a serie c(5,13,29,23,10).
> y <- c()
> for (i in 2:length(x)){
> y[i-1] <- x[i-1]+x[i]}
>
> is there more simple way to get?
x <- c(1,4,9,20,3,7)
N <- length(x)
x[1:(N-1)] + x[2:N]
# [1] 5 13 29 23 10
Best wishes,
Ted.
-------------------------------------------------
E-Mail: (Ted Harding) <Ted.Harding at wlandres.net>
Date: 14-Dec-2013 Time: 10:54:00
This message was sent by XFMail