R/first_difference.R

In wStockhausen/wtsUtilities: Collection of miscellaneous utility functions developed by William Stockhausen

#'
#'@title Calculate the first difference of a vector.
#'
#'@description Function to calculate the first difference of a vector.
#'
#'@param x - the vector to calculate the first difference for
#'
#'@return the vector of first differences
#'
#'@details None.
#'
#'@export
#'
first_difference<-function(x){
    n<-length(x)-1;
    d<-x[1+(1:n)]-x[1:n];
    if (!is.null(names(x))){
        names(d)<-names(x)[1+(1:n)];
    }
    return(d);
}