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))];
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.