https://github.com/cran/fields
Tip revision: ce722edae3c1b9e1af2985ce3500b11058facf0e authored by Doug Nychka on 24 August 2006, 01:46:17 UTC
version 3.04
version 3.04
Tip revision: ce722ed
predict.krig.image.R
"predict.krig.image" <-
function (object, x, ...)
{
obj<- object # hack S3
if (missing(x)) {
temp1 <- c(obj$cov.function(obj$indexM, obj$indexM, Y = obj$delta,
cov.obj = obj$cov.obj))
temp1 <- temp1[obj$rep.info]
temp2 <- obj$beta[1] + obj$x %*% obj$beta[2:3]
return(c(temp1 + temp2))
}
else {
predict.interp.surface(obj$surface, x)
}
}