R/gnlCheckPars.R

In sjp/NormalLaplace: The Normal Laplace Distribution

gnlCheckPars <- function(param) {

  param <- as.numeric(param)
  mu <- param[1]
  sigma <- param[2]
  alpha <- param[3]
  beta <- param[4]
  rho <- param[5]

  case <- ""
  errMessage <- ""

  if (length(param) != 5) {
      case <- "error"
      errMessage <- "param vector must contain 5 values"
  } else if (any(is.na(param))) {
      # Handling NAs so that no checking is done on them
      case <- "error"
      errMessage <- "NAs encountered in parameter vector"
  } else {
    # Handling individual cases of non-negativity
    if (sigma < 0) {
      case <- "error"
      errMessage <- "sigma must be non-negative"
    } else if (alpha < 0) {
      case <- "error"
      errMessage <- "alpha must be non-negative"
    } else if (beta < 0) {
      case <- "error"
      errMessage <- "beta must be non-negative"
    } else if (rho < 0) {
      case <- "error"
      errMessage <- "rho must be non-negative"
    }

    # Handling cases where 2 parameters are non-negative
    if (sigma < 0 & alpha < 0) {
      case <- "error"
      errMessage <- "sigma and alpha must be non-negative"
    } else if (sigma < 0 & beta < 0) {
      case <- "error"
      errMessage <- "sigma and beta must be non-negative"
    } else if (sigma < 0 & rho < 0) {
      case <- "error"
      errMessage <- "sigma and rho must be non-negative"
    } else if (alpha < 0 & beta < 0) {
      case <- "error"
      errMessage <- "alpha and beta must be non-negative"
    } else if (alpha < 0 & rho < 0) {
      case <- "error"
      errMessage <- "alpha and rho must be non-negative"
    } else if (beta < 0 & rho < 0) {
      case <- "error"
      errMessage <- "beta and rho must be non-negative"
    }

    # Handling cases where 3 parameters are non-negative
    if (all(c(sigma, alpha, beta) < 0)) {
      case <- "error"
      errMessage <- "sigma, alpha and beta must be non-negative"
    } else if (all(c(sigma, alpha, rho) < 0)) {
      case <- "error"
      errMessage <- "sigma, alpha and rho must be non-negative"
    } else if (all(c(sigma, beta, rho) < 0)) {
      case <- "error"
      errMessage <- "sigma, beta and rho must be non-negative"
    } else if (all(c(alpha, beta, rho) < 0)) {
      case <- "error"
      errMessage <- "alpha, beta and rho must be non-negative"
    }

    # Handling the case where all four parameters are non-negative
    if (all(c(sigma, alpha, beta, rho) < 0)) {
      case <- "error"
      errMessage <- "sigma, alpha, beta and rho must be non-negative"
    }
  }

  result <- list(case = case, errMessage = errMessage)
  return(result)
}