```
backshift <- function(day, x) {
stopifnot(day >= 0)
y <- c(rep(NaN, day),x[1:(length(x)-day)])
}
# function y=backshift(day,x)
# % y=backshift(day,x)
# assert(day>=0);
# y=[NaN(day,size(x,2), size(x, 3));x(1:end-day,:, :)];
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.