R/gearyc.stat.R

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

Defines functions gearyc.stat

Documented in gearyc.stat

gearyc.stat<-function(data, applyto="SMR", ...)
{
	n<-length(data$Observed)

	if(applyto != "SMR")
	{
		Z<- data$Observed - data$Expected
	}
	else
	{
		Z<- data$Observed/data$Expected 
		Z[!is.finite(Z)]<-0
	}

	return(spdep::geary(x=Z, ...)$C)
}

Try the DCluster package in your browser