Nothing
##############################
## ---- Shift a Vector ---- ##
### ###
## Given a vector and delay ##
## time, shift that vector ##
##############################
shift.vec <- function(shift,vec) {
n <- length(vec)
vec.new <- rep(NA, n)
if (shift < 0) {
vec.new[1:(n-abs(shift))] <- vec[(abs(shift)+1):n]
} else if (shift > 0) {
vec.new[(shift+1):n] <- vec[1:(n-shift)]
} else {
vec.new <- vec
}
return(vec.new)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.