data(SimData)
SimData = SimData[1:50,]
coords = cbind(SimData$long, SimData$lat)
#######################
dmat <-gw.dist(coords,focus=0,p=2,theta=0,longlat=FALSE)
W <- matrix(0,nrow(dmat),ncol(dmat))
W[dmat < 0.2] <- 1
diag(W) <- 0
#######################
sa <- Sareg(data=SimData,
coly = c("y_ols"),
colx = c("A"),
W,
intemp=0.5,
rho=0.96,
niter=30,
subit=3,
ncl=2,
bcont=-4)
SimData$regimes = sa$groups
plot(lat~long,SimData,col=regimes,pch=16)
Run the code above in your browser using DataLab