# NOT RUN {
data(p50)
# }
# NOT RUN {
test <- pois.krige(p50, krige = krige.glm.control(cov.pars = c(1,1), beta = 1),
mcmc.input = mcmc.control(S.scale = 0.5, n.iter = 1000, thin = 1))
asympvar(test$intensity[45,])
ass <- asympvar(test$intensity[1:10,], type = "pos")
# }
Run the code above in your browser using DataLab