R/valfpa.R

Defines functions valfpa

#' @noRd
valfpa <- function(vw,b,delta,funcpa,...){
    if(is.na(vw)) return(-2E9)
	bk <- b + (exp(vw)*delta)
        #cat("dans valfpa, b= ",b,"\n")
        #cat("  vw= ",vw,"   delta=",delta,"\n")
        #cat("             bk= ",bk,"\n")
	return(-funcpa(bk,...)) 
}

Try the marqLevAlg package in your browser

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

marqLevAlg documentation built on April 2, 2021, 1:05 a.m.