# NOT RUN {
data(LondonHP)
gwr.pred<-gwr.predict(PURCHASE~FLOORSZ, data=londonhp, bw=2000,kernel = "gaussian")
gwr.pred
#########Global OLS regression results and comparison with gstat functions
if(require("gstat"))
{
mlr.g <- gstat(id = "xx1", formula = PURCHASE~FLOORSZ,data=londonhp)
mlr.g1 <- predict(mlr.g, newdata = londonhp, BLUE = TRUE)
mlr.g1
}
############
ols.pred<-gwr.predict(PURCHASE~FLOORSZ, data=londonhp, bw=100000000000000000000000)
ols.pred$SDF
# }
Run the code above in your browser using DataLab