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

Question

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

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