Nothing
`plot.ecespa.syrjala` <-
function(x, ...){
hist(x$psi.sim, col="grey", border="grey", main="", xlab=expression(psi),...)
title(main=paste("Syrjala test\n for the difference between the spatial distributions of \n",
x$datanames[1], " and ", x$datanames[2]))
abline(v=x$psi.obs, lwd=3)
print(x)
}
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.