Nothing
neighbors <- function(x,y,...){
nbh=neighborhood(x,...)
levs=rep(1:nbh$nu,nbh$size.nbh)
nbh.list <- split(y[nbh$neighbors],levs)
list(nbh=nbh,list=nbh.list)
}
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.