No hay una función base en R para lo que entiendo sería una "cumulative lagged difference", algún que otro paquete la implementa, pero, de todas formas es bastante simple de construir:
x <- c(1, 2, 3, 1)
head(x,1) - sum(tail(x,-1))
[1] -5
Tomamos el primer elemento del vector y lo restamos por la suma de los siguientes.
Otra forma útil es usar Reduce()
para aplicar la resta ítem por ítem
Reduce(`-`, x)