swh:1:snp:33a53053e50f7abe7d281cc0c803be827debf4a3
Tip revision: 58d06f7c7bb024f6996e43f449efe849392896e1 authored by Edzer Pebesma on 03 December 2009, 00:00:00 UTC
version 0.9-66
version 0.9-66
Tip revision: 58d06f7
krige.cv.R
# $Id: krige.cv.q,v 1.18 2009-10-30 16:11:21 edzer Exp $
if (!isGeneric("krige.cv"))
setGeneric("krige.cv", function(formula, locations, ...)
standardGeneric("krige.cv"))
krige.cv.locations = function (formula, locations, data = sys.frame(sys.frame(sys.parent())),
model = NULL, ..., beta = NULL, nmax = Inf, nmin = 0, maxdist = Inf,
nfold = nrow(data), verbose = TRUE, debug.level = 0) {
gstat.cv(gstat(g = NULL, id = "var1", formula = formula, locations =
locations, data = data, model = model, beta = beta, nmax = nmax,
nmin = nmin, maxdist = maxdist, ...), nfold = nfold, verbose = verbose,
debug.level = debug.level)
}
setMethod("krige.cv", c("formula", "formula"), krige.cv.locations)
krige.cv.spatial = function (formula, locations, model = NULL, ..., beta = NULL,
nmax = Inf, nmin = 0, maxdist = Inf, nfold = nrow(locations), verbose = TRUE,
debug.level = 0) {
# data = locations
gstat.cv(gstat(g = NULL, id = "var1", formula = formula,
data = locations, model = model, beta =
beta, nmax = nmax, nmin = nmin, maxdist = maxdist,
...), nfold = nfold, verbose = verbose, debug.level = debug.level)
}
setMethod("krige.cv", c("formula", "Spatial"), krige.cv.spatial)