R/lagmat.R

In kloke/npsmReg2: R functions for Chapter 7 of Nonparametric Statistical Methods Using R

lagmat <-
function (x, p) 
{
    n <- length(x)
    xmat <- matrix(ncol = p, nrow = n - p)
    resp <- x[(p + 1):n]
    for (j in 1:p) {
        xmat[, j] <- x[(p - j + 1):(n - j)]
    }
    lagmat <- cbind(resp, xmat)
}