Skip to content

Instantly share code, notes, and snippets.

@AABoyles
Last active September 25, 2015 04:08
Show Gist options
  • Save AABoyles/861052 to your computer and use it in GitHub Desktop.
Save AABoyles/861052 to your computer and use it in GitHub Desktop.
Returns a Vector x lagged by y steps
laggr <- function(x,y){return(c(rep(NA, y),x[-((length(x)-y+1):length(x))]))}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment