Nothing
### 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")
}
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.