使用差異計算當前值與先前值之間的差異

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