# Create example data
set.seed(42)
x <- rnorm(100)
coords <- cbind(runif(100), runif(100))
# \donttest{
# Calculate Moran's I (requires RANN package)
if (requireNamespace("RANN", quietly = TRUE)) {
W <- buildSpatialNetwork(coords, method = "knn", k = 6)
result <- moranI(x, W)
print(result)
}
# }
Run the code above in your browser using DataLab