shinythemes - ¿Manera funcional de revertir la suma acumulada?
tags$div shiny (1)
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?
Solo usa diff
para obtener las diferencias sucesivas:
> c(vec[1],diff(vec))
[1] 1 2 3 4 5 6 7 8 9 10