R/get.knclusters.R

Defines functions get.knclusters

Documented in get.knclusters

#
#This code returns the clusters found by KUlldorff's test
#

get.knclusters<-function(d, knresults)
{

	ncl<-nrow(knresults)
	clusters<-as.list( rep(NA, ncl) )

	for(i in 1:ncl)
	{
		x<-knresults$x[i]
		y<-knresults$y[i]
		s<-knresults$size[i]

		dst<-(d$x-x)^2+(d$y-y)^2
		clusters[[i]]<-(order(dst))[1:s]
	}

	return(clusters)
}

Try the DCluster package in your browser

Any scripts or data that you put into this service are public.

DCluster documentation built on May 30, 2017, 3:08 a.m.