## Data
data(georgia)
## MGWR Model
mod <- mgwnbr(data=georgia, formula=PctBach~PctBlack+PctFB,
lat="Y", long="X", globalmin=FALSE, band_method="adaptive_bsq", band_criterion="cv",
distribution="gaussian", multiscale=TRUE, h=100)
## Bandwidths
mod$general_bandwidth
## Goodness of fit measures
mod$measures
## GWNBR Model
if (FALSE) {
mod <- mgwnbr(data=georgia, formula=PctBach~PctBlack+PctFB,
lat="Y", long="X", globalmin=FALSE, band_method="adaptive_bsq", band_criterion="cv",
distribution="negbin", multiscale=FALSE)
}
## GWPR Model
if (FALSE) {
mod <- mgwnbr(data=georgia, formula=PctBach~PctBlack+PctFB,
lat="Y", long="X", globalmin=FALSE, band_method="adaptive_bsq", band_criterion="cv",
distribution="poisson", multiscale=FALSE)
}
Run the code above in your browser using DataLab