shinythemes - ¿Manera funcional de revertir la suma acumulada?

tags$div shiny

Question

Si tengo un vector de una suma acumulada, por ejemplo,

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

¿Existe una manera funcional de traducir vec en su vector original de c(1:10) ?

En este momento, estoy usando un bucle for que va:

> 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

Pero eso no me parece muy parecido a ... ¿Alguna idea?

Answer 1

Solo usa diff para obtener las diferencias sucesivas:

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