Question

我想在我的样本量增加时绘制可变数量的点。但是，出于某种原因，＆＃34;变异函数＆＃34;功能每次仅绘制15个点。

我检查过以确保我传递的数据大小＆＃34; variogram＆＃34;变化是正确的 - 它是。

library(gstat)
library(RandomFields)
library(lattice)
library(latticeExtra)
mod <- RMexp(var=1, scale=5) + RMtrend(mean=3)
# theoretical mean 3 

# (x,y) coordinates for simulation grid
x <- seq(0,50,by=0.5)
y <- seq(0,0,by=0.5)
xx <- rep(x, times=length(y))
yy <- rep(y, each=length(x))

zz <- RFsimulate(mod, x=xx, y=yy,spConform=FALSE)

field <- data.frame(x=xx,y=yy,z=zz)


d <- sample(zz,10)
g <- gstat(formula=z~1, locations=~x+y, data=raw.dat)

# N=10:
n10 <- sample(1:length(field[[1]]),10,replace=F)

#g <- gstat(formula=z~1, locations=~x+y, data=raw.dat) 
f10 = field[n10,]
g10 <- gstat(formula=z~1, locations=~x+y, data=f10)


raw.vgm <- variogram(g10) # create method of class "gstatVariogram"
plot(raw.vgm,main='Variogram of Raw Data for N = 10',type='b') # plot method     for class "gstatVariogram"

# N=25:
n25 <- sample(1:length(field[[1]]),25,replace=F)

#g <- gstat(formula=z~1, locations=~x+y, data=raw.dat) 
f25 = field[n25,]
g25 <- gstat(formula=z~1, locations=~x+y, data=f25)

＃f25长度为25 - 我检查了＃

raw.vgm <- variogram(g25) # create method of class "gstatVariogram"
plot(raw.vgm,main='Variogram of Raw Data for N = 25',type='b') # plot method for class "gstatVariogram"

原始变异图仅绘制15个点。有谁知道为什么？我没有将此视为默认值。

Answer 1

?variogram为参数width提供值cutoff/15的默认值，这会导致默认值为15磅。如果您将width的值设置得更小，您会看到更多积分。尝试

raw.vgm <- variogram(g25, width = .5)
plot(raw.vgm,main='Variogram of Raw Data for N = 25')

获取更多积分，如果您有冒险精神，请尝试修改cutoff。我不建议使用type='b'，因为连接样本变异函数点的线比真实的更多。

为什么变异函数总是在R中绘制15个点？

1 个答案: