Nothing
na.pad <- function (vec, ind) {
vec0 <- numeric(length(ind))
vec0[!ind] <- vec
vec0[ind] <- NA
return(vec0)
}
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.