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 (class(res) == 'try-error')
  {
    return(-Inf)
  }
  else
  {
    return(res$value)
  }
}
hmorlon/PANDA documentation built on Aug. 13, 2018, 4:48 a.m.