Nothing
tango.stat<-function(data, listw, zero.policy=FALSE)
{
p<-scale(data$Expected, center=FALSE, scale=sum(data$Expected))
r<-scale(data$Observed, center=FALSE, scale=sum(data$Observed))
rp<-r-p
T<-lag.listw(listw, rp, zero.policy = zero.policy)
T<-t(rp)%*%T
return(T)
}
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.