# NOT RUN {
# Summarize Data
summary(ContrivedData)
# Set seed
set.seed(1241060320)
M <- 100
#M<-10000
contrived.run <- metropolis.krige(y ~ x.1 + x.2, coords = c("s.1","s.2"),
data = ContrivedData, n.iter = M, range.tol = 0.05)
summary(contrived.run)
# Update run
contrived.run2 <- update(contrived.run, n.iter = M, combine = TRUE)
summary(contrived.run2)
#plot(contrived.run2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab