使用差异计算当前值与先前值之间的差异

Question

如何使用差异函数来计算当前值与先前值之间的差值，而不是下一个值与当前值之间的差值。

Answer 1

这是@ Andrie的解决方案包在一个函数：

x = c(1,4,5,8) 
diff(x) 
[1] 3 1 3 

newDiff <- function(a) 
{ 
    x <- a[1] 
    x <- c(x, diff(a)) 
    return(x) 
} 

newDiff(x) 
[1] 1 3 1 3