# NOT RUN {
library(sp)
library(spdep)
data(meuse)
coordinates(meuse) <- ~x+y
# Autocorrelation (univariate)
morans.plot(meuse$zinc, coords = coordinates(meuse))
# Cross-correlation of: x influencing y and y influencing x
opar <- par(no.readonly=TRUE)
par(mfrow=c(1,2))
morans.plot(x=meuse$zinc, y=meuse$copper, coords = coordinates(meuse),
scale.morans = TRUE)
morans.plot(x=meuse$zinc, y=meuse$copper, coords = coordinates(meuse),
scale.morans = TRUE, type.ac="yx")
par(opar)
# }
Run the code above in your browser using DataLab