R/fwdshift.R

In aushaff/echanFuncs:

fwdshift <- function(day, x) {

  stopifnot(day>=0)
  y <- c(x[day+1:(length(x)-day)], rep(NA, day))


}

# function y=fwdshift(day,x)
# assert(day>=0);
#
#
# y=[x(day+1:end,:, :); NaN*ones(day,size(x,2), size(x, 3))];