r - 反转累积总和的功能方法？

Question

如果我有一个累积和的向量，例如

> vec <- cumsum(1:10)
[1]  1  3  6 10 15 21 28 36 45 55

有没有实用的翻译方法 vec进入它的原始向量 c(1:10) ?

现在，我正在使用一个 for 循环:

> result <- vec[1]
> for (i in 2:length(vec)) result <- append(result, vec[i]-vec[i-1])
> result
[1]  1  2  3  4  5  6  7  8  9 10

但这对我来说似乎不太像 R... 有什么想法吗？

Answer 1

只需使用 diff得到连续的差异:

> c(vec[1],diff(vec))
 [1]  1  2  3  4  5  6  7  8  9 10