# 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)
msgwr.fit.t <- gwer.multiscale(fit.formula, family = Student(3), data = gSRDF,
bws0 = rep(gwer.bw.t, 5), hatmatrix = TRUE,
adaptive = TRUE)
gwer.multiscale.diag(msgwr.fit.t)
# }
Run the code above in your browser using DataLab