https://github.com/cran/fields
Tip revision: 8eab500c3dad2103092ff68706417414fe53e16b authored by Doug Nychka on 22 September 2009, 20:23:49 UTC
version 6.01
version 6.01
Tip revision: 8eab500
predict.sreg.R
# fields, Tools for spatial data
# Copyright 2004-2007, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html
"predict.sreg" <- function(object, x, derivative = 0,
model = 1, ...) {
if (missing(x)) {
x <- object$x
}
c(splint(object$predicted$x, object$predicted$y[, model],
x, derivative = derivative, ...))
}