R/shift.R

shift <- function(x, offset = 1, pad = NA) {
    r <- (1 + offset):(length(x) + offset)
    r[r<1] <- NA
    ans <- x[r]
    ans[is.na(ans)] <- pad
    return(ans)
}
Chicago/sdp-feature-fetcher documentation built on May 6, 2019, 10:54 a.m.