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
krig.image.parameters.R
"krig.image.parameters" <-
function (out)
{
nt <- out$qr.T$rank
n <- length(out$yM)
delta <- qr.qy(out$qr.T, c(rep(0, nt), out$omega2))
temp <- out$yM - (out$cov.function(out$indexM, , delta, cov.obj = out$cov.obj) +
out$lambda * out$weightsM * delta)
beta <- qr.coef(out$qr.T, temp)
rhohat <- sum(delta * out$yM)/(n - nt)
rho <- rhohat
sigma2 <- rho * out$lambda
shat.MLE <- sqrt(rhohat * out$lambda)
return(list( beta=beta, delta=delta, rhohat=rhohat, rho=rho, sigma2=sigma2, shat.MLE=shat.MLE))
}