var <- runif(100) # random variable
# Correlated distance matrix
distan <- matrix(runif(1000), ncol=100, nrow=100)
diag(distan) <- 0
distan[lower.tri(distan)] <- distan[upper.tri(distan)]
distan2 <- as.matrix(dist(var))
distan <- (distan)*(distan2)
moran <- lets.correl(var, distan, 5, equidistant=FALSE, plot=TRUE)
Run the code above in your browser using DataLab