Basic lag in R vector/dataframe

by

I had the same problem, but I didn’t want to use zoo or xts, so I wrote a simple lag function for data frames:

lagpad <- function(x, k) {
  if (k>0) {
    return (c(rep(NA, k), x)[1 : length(x)] );
  }
  else {
    return (c(x[(-k+1) : length(x)], rep(NA, -k)));
  }
}

This can lag forward or backwards:

x<-1:3;
(cbind(x, lagpad(x, 1), lagpad(x,-1)))
     x      
[1,] 1 NA  2
[2,] 2  1  3
[3,] 3  2 NA

More Related Contents:

  1. Conversion of a data into time series object
  2. Creating regular 15-minute time-series from irregular time-series
  3. Fill NA in a time series only to a limited number
  4. Converting a data frame to xts
  5. Forecasting time series data
  6. Return data subset time frames within another timeframes?
  7. Subset xts object by time of day
  8. Replace -inf, NaN and NA values with zero in a dataset in R
  9. R: merge two irregular time series
  10. merging a large list of xts objects
  11. optimized rolling functions on irregular time series with time-based window
  12. Replacing NAs with latest non-NA value
  13. Insert rows for missing dates/times
  14. Replace NA with previous or next value, by group, using dplyr
  15. Converting year and month (“yyyy-mm” format) to a date?
  16. How to convert dataframe into time series?
  17. How to parse milliseconds?
  18. R tick data : merging date and time into a single object
  19. Adaptive moving average – top performance in R
  20. How to make gradient color filled timeseries plot in R
  21. How to aggregate a dataframe by week?
  22. Transforming a time-series into a data frame and back
  23. Convert data frame with date column to timeseries
  24. Analyzing Daily/Weekly data using ts in R
  25. Filling missing dates in a grouped time series – a tidyverse-way?
  26. rolling joins data.table in R
  27. How can I change XTS to data.frame and keep Index?
  28. simple examples of filter function, recursive option specifically
  29. calculating sum of previous 3 rows in R data.table (by grid-square)
  30. Interpolating timeseries

Leave a Comment