# NOT RUN {
library(spatialreg)
data(oldcol, package="spdep")
listw <- spdep::nb2listw(COL.nb, style="W")
crime_sar <- lagsarlm(CRIME ~ INC + HOVAL, data=COL.OLD,
listw=listw, method="eigen")
tidy(crime_sar)
tidy(crime_sar, conf.int = TRUE)
glance(crime_sar)
augment(crime_sar)
crime_sem <- errorsarlm(CRIME ~ INC + HOVAL, data=COL.OLD, listw)
tidy(crime_sem)
tidy(crime_sem, conf.int = TRUE)
glance(crime_sem)
augment(crime_sem)
crime_sac <- sacsarlm(CRIME ~ INC + HOVAL, data=COL.OLD, listw)
tidy(crime_sac)
tidy(crime_sac, conf.int = TRUE)
glance(crime_sac)
augment(crime_sac)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab