inst/unitTests/runit.nlCheckPars.R

In NormalLaplace: The Normal Laplace Distribution

### Testing nlCheckPars
test.nlCheckPars <- function() {
  ## Simply passing in several sets of parameters and comparing
  ## their error messages with the expected error messages
  checkEquals(nlCheckPars(c(0, 1.5, 1, 2))$errMessage, "")
  checkEquals(nlCheckPars(c(3, 1, 1.5, 2))$errMessage, "")
  checkEquals(nlCheckPars(c(2, -1, 1, 1))$errMessage,
              "sigma must be non-negative")
  checkEquals(nlCheckPars(c(2, 1, -1, 2))$errMessage,
              "alpha must be non-negative")
  checkEquals(nlCheckPars(c(0, 1, 2, -1))$errMessage,
              "beta must be non-negative")
  checkEquals(nlCheckPars(c(0, -0.01, -0.1, 1))$errMessage,
              "sigma and alpha must be non-negative")
  checkEquals(nlCheckPars(c(2, -0.5, 1, -0.2))$errMessage,
              "sigma and beta must be non-negative")
  checkEquals(nlCheckPars(c(1, 1, -0.2, -1))$errMessage,
              "alpha and beta must be non-negative")
  checkEquals(nlCheckPars(c(0, -0.1, -0.2, -0.3))$errMessage,
              "sigma, alpha and beta must be non-negative")
  checkEquals(nlCheckPars(c(0.5, NA, 1, 1))$errMessage,
              "NAs encountered in parameter vector")
  checkEquals(nlCheckPars(c(-1, 1, 1))$errMessage,
              "param vector must contain 4 values")
}