Nothing
neighbors <- function(i, j, nrow, ncol) {
is <- (i-1):(i+1)
js <- (j-1):(j+1)
is <- is[is <= nrow & is != 0]
js <- js[js <= ncol & js != 0]
cbind(rep(is, each = length(js)), js)
}
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.