Tôi sử dụng gstat để dự đoán dữ liệu nhị thức, nhưng giá trị được dự đoán vượt quá 1 và dưới 0. Có ai biết cách tôi có thể giải quyết vấn đề này không? Cảm ơn.Hồi quy kriging dữ liệu nhị thức
data(meuse)
data(meuse.grid)
coordinates(meuse) <- ~x+y
coordinates(meuse.grid) <- ~x+y
gridded(meuse.grid) <- TRUE
#glm model
glm.lime <- glm(lime~dist+ffreq, meuse, family=binomial(link="logit"))
summary(glm.lime)
#variogram of residuals
var <- variogram(lime~dist+ffreq, data=meuse)
fit.var <- fit.variogram(var, vgm(nugget=0.9, "Sph", range=sqrt(diff([email protected]\[1,\])^2 + diff([email protected]\[2,\])^2)/4, psill=var(glm.lime$residuals)))
plot(var, fit.var, plot.nu=T)
#universal kriging
kri <- krige(lime~dist+ffreq, meuse, meuse.grid, fit.var)
spplot(kri[1])