# NOT RUN {
{
data.use <- quakes[1:100,]
W <- 1/as.matrix(dist(data.use[,1:2]))
diag(W) <- 0
M <- SpatialXCorr(data.use[,3:4], W, method = "M")
L <- SpatialXCorr(data.use[,3:4], W, method = "L")
}
# }
Run the code above in your browser using DataLab