https://github.com/cran/fields
Raw File
Tip revision: c71fb7f6ffa323303affebf0e35a0070faa9c24d authored by Doug Nychka on 10 May 2004, 00:00:00 UTC
version 1.7.2
Tip revision: c71fb7f
predict.qsreg.r
"predict.qsreg" <-
function (out, x, derivative = 0, model = out$ind.cv.ps) 
{
    if (missing(x)) 
        x <- out$x
    c(splint(out$predicted$x, out$predicted$y[, model], x, derivative = derivative))
}
back to top