如何在R中计算变异函数时更改滞后距离

Question

我正在尝试计算不同滞后距离的实验变异函数值，所以我使用了variogramm命令

variog1 <- variogram((Copper)~1,ds)

但我不知道如何指定所需的滞后距离。 例如，我想在h=(15, 30, 45, 60)处获得一个值

Answer 1

您可以在参数“宽度”中修复滞后距离，或者可以使用参数“边界”精确地修复距离。 请参阅下一个示例：

library(sp)
library(gstat)
cord <- data.frame(x=rnorm(50,-20,6),y=rnorm(50,40,10))
predictors <- SpatialPointsDataFrame(coords = cord, data = data.frame(val=cord$x**2+cord$y+rnorm(50,sd=0.4)),
                                     proj4string = CRS("+proj=longlat +datum=WGS84"))
vario <- variogram(object = val ~ 1,data =  predictors,width=50)
plot(vario)

vario <- variogram(object = val ~ 1,data =  predictors,width=350)
plot(vario)
vario <- variogram(object = val ~ 1,data =  predictors,boundaries=c(50,100,500,700,800)) 
plot(vario)