## Not run:
#
# data(meuse)
#
# ## Gaussian REML fit
# r.logzn.reml <- georob(log(zinc) ~ sqrt(dist), data = meuse, locations = ~ x + y,
# variogram.model = "RMexp",
# param = c(variance = 0.15, nugget = 0.05, scale = 200),
# tuning.psi = 1000,
# control = control.georob(cov.bhat = TRUE, cov.ehat.p.bhat = TRUE))
# summary(r.logzn.reml, correlation = TRUE)
#
# ## robust REML fit
# r.logzn.rob <- update(r.logzn.reml, tuning.psi = 1)
#
# summary(r.logzn.rob, correlation = TRUE)
#
# ## residual diagnostics
# old.par <- par(mfrow = c(2,3))
#
# plot(fitted(r.logzn.reml), rstandard(r.logzn.reml))
# abline(h = 0, lty = "dotted")
# qqnorm(rstandard(r.logzn.reml))
# abline(0, 1)
# qqnorm(ranef(r.logzn.reml, standard = TRUE))
# abline(0, 1)
# plot(fitted(r.logzn.rob), rstandard(r.logzn.rob))
# abline(h = 0, lty = "dotted")
# qqnorm(rstandard(r.logzn.rob))
# abline(0, 1)
# qqnorm(ranef(r.logzn.rob, standard = TRUE))
# abline(0, 1)
#
# par(old.par)
# ## End(Not run)
Run the code above in your browser using DataLab