Это в основном дельта-скорость, деленная на дельта-время. Поэтому дважды используйте diff
и не забывайте, что первое значение не вычисляется из данных.
c(NA, with(cars, diff(speed)/diff(time_sec)))
#[1] NA 0.000 -8.700 -7.125 -8.175 0.000
cars$accel <- c(NA, with(cars, diff(speed)/diff(time_sec)))
Данные.
cars <- read.table(text = "
speed time_sec
1 27.520 0.273
2 27.520 0.313
3 27.172 0.353
4 26.887 0.393
5 26.560 0.433
6 26.560 0.473
", header = TRUE)