## 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)
#
# deviance(r.logzn.reml)
# logLik(r.logzn.reml)
#
# waldtest(r.logzn.reml, .~. + ffreq)
#
# step(r.logzn.reml, ~ sqrt(dist) + ffreq + soil)
#
# ## robust REML fit
# r.logzn.rob <- update(r.logzn.reml, tuning.psi = 1)
#
# deviance(r.logzn.rob)
# logLik(r.logzn.rob)
# logLik(r.logzn.rob, REML=TRUE)
#
# step(r.logzn.rob, ~ sqrt(dist) + ffreq + soil, fixed=FALSE, trace=2)
# ## End(Not run)
Run the code above in your browser using DataLab