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

Question

我正在尝试计算不同滞后距离下的 Experimental-Variogram 值，因此我使用 variogramm 命令

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

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

Answer 1

您可以在参数“width”中固定滞后距离，也可以使用参数“boundary”来精确固定距离。请参阅下一个示例：

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)