Nothing
nlCheckPars <- function(param) {
param <- as.numeric(param)
## mu <- param[1]
sigma <- param[2]
alpha <- param[3]
beta <- param[4]
case <- ""
errMessage <- ""
if (length(param) != 4) {
case <- "error"
errMessage <- "param vector must contain 4 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"
}
# 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 (alpha < 0 && beta < 0) {
case <- "error"
errMessage <- "alpha and beta must be non-negative"
}
# Handling the case where all three parameters are non-negative
if (sigma < 0 && alpha < 0 && beta < 0) {
case <- "error"
errMessage <- "sigma, alpha and beta must be non-negative"
}
}
## result
list(case = case, errMessage = errMessage)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.