R code to measure 'velocity', how much each data point differs according to its neighbours. Accepts a vector and returns a single value measurement of velocity.

velocity.r

velocity <- function(vector) {
    N <- length(vector)
    val <- sum(abs(vector[1:N-1]-vector[2:N]))
    return (val)
}