R/moranI.stat.R

In DCluster: Functions for the Detection of Spatial Clusters of Diseases

Defines functions moranI.stat

Documented in moranI.stat

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)
}

Try the DCluster package in your browser