Dear all,
#the following is gwr code for georgia data. 
#Can somebody point out what is plotted by this code?
#I want to plot residual plot (gwr and ols both) for this data.
library(spgwr)
data(georgia) 
g.adapt.gauss <- gwr.sel(PctBach ~ TotPop90 + PctRural + PctEld + PctFB + PctPov + PctBlack, data=gSRDF, adapt=TRUE) 
res.adpt <- gwr(PctBach ~ TotPop90 + PctRural + PctEld + PctFB + PctPov + PctBlack, data=gSRDF, adapt=g.adapt.gauss) 
brks <- c(-0.25, 0, 0.01, 0.025, 0.075) 
cols <- grey(5:2/6) 
plot(res.adpt$SDF, col=cols[findInterval(res.adpt$SDF$PctBlack, brks, all.inside=TRUE)])
#I want residual plot under GWR and OLS.
	[[alternative HTML version deleted]]

