Nothing
xneig4=function(x,a,b,col){
n=dim(x)[1];m=dim(x)[2]
nei=c(x[a-1,b]==col,x[a,b-1]==col)
if (a!=n)
nei=c(nei,x[a+1,b]==col)
if (b!=m)
nei=c(nei,x[a,b+1]==col)
sum(nei)
}
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.