# NOT RUN {
data(georgia, package = "spgwr")
fit.formula <- PctBach ~ TotPop90 + PctRural + PctFB + PctPov
gwer.bw.t <- bw.gwer(fit.formula, data = gSRDF, family = Student(3), adapt = TRUE)
gwer.fit.t <- gwer(fit.formula, data = gSRDF, family = Student(3), bandwidth = gwer.bw.t,
adapt = TRUE, parplot = FALSE, hatmatrix = TRUE, spdisp = TRUE,
method = "gwer.fit")
# }
Run the code above in your browser using DataLab