# NOT RUN {
data("crd_simulated")
dados <- crd_simulated
#Geodata object
geodados <- as.geodata(dados, coords.col = 1:2, data.col = 3,
covar.col = 4)
h_max <- summary(geodados)[[3]][[2]]
dist <- 0.6*h_max
# Computing the variogram
variograma <- spVariog(geodata = geodados,
trend = "cte", max.dist = dist, design = "crd",
scale = FALSE)
plot(variograma, ylab = "Semivariance", xlab = "Distance")
# }
Run the code above in your browser using DataLab