# NOT RUN {
# first generate some sample data
x <- expand.grid(1:20, 1:5)[, 1]
y <- expand.grid(1:20, 1:5)[, 2]
# z data from an exponential random field
z <- rmvn.spa(x = x, y = y, p = 2, method = "gaus")
# lisa analysis
fit1 <- lisa(x = x, y = y, z = z, neigh = 3, resamp = 499)
# }
# NOT RUN {
plot(fit1, neigh.mean=FALSE)
# }
Run the code above in your browser using DataLab