R/dev_wrapper.R

Defines functions dev_wrapper

## Sets the parameter values equal and searches for a solution 
## with them equal
##
## May 8th, 2012

dev_wrapper <- function(beta, X, Y, nug_thres, ...){
    if (!is.matrix(X)){
        x <- as.matrix(X)
    }
    d <- ncol(X)
    beta <- rep(beta, d)
    dev_val <- GP_deviance(beta, X, Y, nug_thres, ...)
    return(dev_val)
}

Try the GPfit package in your browser

Any scripts or data that you put into this service are public.

GPfit documentation built on April 12, 2025, 5:07 p.m.