R/integrate.R

Defines functions .Integrate

.Integrate <- function(...)
{
  op <- getOption("show.error.messages")
  options(show.error.messages=FALSE)
  res <- try((integrate(...)));
  options(show.error.messages=op)
  if (inherits(res, "try-error"))
  {
    return(-Inf)
  }
  else
  {
    return(res$value)
  }
}
hmorlon/PANDA documentation built on July 14, 2024, 5:45 p.m.