R/whittermore.stat.R

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

Defines functions whittermore.stat

Documented in whittermore.stat

whittermore.stat<-function(data, listw, zero.policy=FALSE)
{
	n<-length(data$Observed)
	r<-scale(data$Observed, center=FALSE, scale=sum(data$Observed) )

	T<-lag.listw(listw, r, zero.policy = zero.policy)
	T<-(n/(n-1))*(t(r)%*%T)

	return(T)
}

Try the DCluster package in your browser