R/rpsg_getfunctionvalue.R

In PSGExpress: Portfolio Safeguard: Optimization, Statistics and Risk Management

rpsg_getfunctionvalue <- function(function_description, point_argument, rho=parent.frame(), allowExt=TRUE, rpsg_suppress.Messages = FALSE, allowFunVal = TRUE)
{
  if (!is.list(function_description)) {
    if (is.character(function_description)) {
      function_description<-list(function_description=function_description)
    }
  }
  if (is.na(match("function_description", names(function_description)))) {
    stop("function_description not declared")
    return (NULL)
  }
  if (missing(point_argument)) {
    stop("point_argument not defined")
    return (NULL)
  }
  function_description$point_argument<-point_argument

  output.value<-.Call("crpsg_getfunctionvalue", as.integer(0), function_description, rho, allowExt, rpsg_suppress.Messages, allowFunVal)

    return (output.value)
}