R/lagit.R

In HFpostdoc/sarModel: Sarracenia micro-ecosystem model

#' @title lagit 
#' 
#' Description lagit 
#' 
#' @param x x
#' @param k k
#' @param xlab xlab
#' @param ylab ylab
#' @param type type
#' @param std std
#' @param add add
#' @param col col
#' @param pch pch
#' @param cex cex
#' @param lwd lwd
#' @export lagit
#' @return lagit
lagit <- function(x,k=1,xlab,ylab,type='l',std=FALSE,add=FALSE,col='grey',pch=19,cex=1,lwd=1){
    if (missing(xlab)){xlab <- 'x'}
    if (missing(ylab)){ylab <- expression('x'[t+k])}
    if (std){x <- (x-mean(x))/sd(x)}
    x1 <- x[1:(length(x) - k)]
    x2 <- x[(k + 1):(length(x))]
    return(data.frame(x=x1,y=x2))
}