# NOT RUN {
library(sp)
data(meuse)
## for gstat variogram
library(gstat)
data(meuse)
coordinates(meuse) = ~x+y
vario0 <- gstat::variogram(log(zinc)~1, meuse)
varioEnv <- envelope(vario0, data = meuse,
formula = log(zinc)~1, nsim = 499, cluster = TRUE, n.cluster = 10)
## for geoR variog
library(geoR)
data(meuse)
meuse <- as.geodata(meuse, coords.col = 1:2, data.col = 6, covar.col = 3:5)
meuse$data <- log(meuse$data)
vario0 <- variog(meuse,max.dist=1500)
varioEnv <- envelope(vario0, data = meuse,
trend = trend.spatial(~lead, meuse), nsim = 499)
# }
Run the code above in your browser using DataLab