require(spdep)
data(boston)
y <- boston.c[, "CMEDV" ]
x <- boston.c[,c("CRIM","ZN","INDUS", "CHAS", "NOX","RM", "AGE",
"DIS" ,"RAD", "TAX", "PTRATIO", "B", "LSTAT")]
coords <- boston.c[,c("LON", "LAT")]
meig <- meigen(coords=coords)
res <- resf_qr(y=y,x=x,meig=meig, boot=FALSE)
res
plot_qr(res,1) # Intercept
plot_qr(res,2) # Coefficient on CRIM
plot_qr(res,1,"s") # spcomp_SE
plot_qr(res,2,"s") # spcomp_Moran.I/max(Moran.I)
###Not run
#res <- resf_qr(y=y,x=x,meig=meig, boot=TRUE)
#res
#plot_qr(res,1) # Intercept + 95 percent confidence interval (CI)
#plot_qr(res,2) # Coefficient on CRIM + 95 percent CI
#plot_qr(res,1,"s") # spcomp_SE + 95 percent CI
#plot_qr(res,2,"s") # spcomp_Moran.I/max(Moran.I) + 95 percent CI
Run the code above in your browser using DataLab