Nothing
moranI.stat<-function(data, applyto="SMR", ...)
{
if(applyto != "SMR")
{
Z<- data$Observed - data$Expected
}
else
{
Z<- data$Observed/data$Expected
Z[!is.finite(Z)]<-0
}
return(spdep::moran(x=Z,...)$I)
}
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.