style shinythemes div dashboardpage color r

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