swh:1:snp:33a53053e50f7abe7d281cc0c803be827debf4a3
Tip revision: cc0e158f1e0ce7dce51ae4c6b8e63147c5df3986 authored by Edzer J. Pebesma on 19 October 2004, 03:25:34 UTC
version 0.9-16
version 0.9-16
Tip revision: cc0e158
krige.R
"krige" <-
function (formula, locations = try.coordinates(data), data = sys.frame(sys.parent()),
newdata, model = NULL, beta = NULL, nmax = Inf, nmin = 0,
maxdist = Inf, block = numeric(0), nsim = 0, indicators = FALSE,
na.action = na.pass, ...)
{
if (has.coordinates(locations)) { # shift arguments:
if (has.coordinates(data)) # another shift:
newdata = data
data = locations
locations = coordinates(data)
}
g = gstat(formula = formula, locations = locations, model = model,
data = data, beta = beta, nmax = nmax, nmin = nmin,
maxdist = maxdist, ...)
predict.gstat(g, newdata = newdata, block = block, nsim = nsim,
indicators = indicators, na.action = na.action)
}