R/parCheck.R

In thomasWeise/regressoR.functional.models: An R Package Providing an Blueprints and Tools for Functional Models for Regression

#' @include FunctionalModel.R

#' @title Check that model parameters are acceptable for the functional model
#' @description Check the the model parameter vector has the right length, all
#'   finite elements, and fits to the boundaries specified in the functional
#'   model.
#' @param model the functional model
#' @param par the parameter vector to be checked
#' @return \code{TRUE} if the parameter vector is OK, \code{FALSE} otherwise
#' @export FunctionalModel.par.check
FunctionalModel.par.check <- function(model, par) {
  if(is.null(model)) {
    stop("Functional model cannot be null.")
  }
  (!(is.null(par))) &&
    (length(par) == model@paramCount) &&
    all(is.finite(par)) &&
    (is.null(model@paramLower) ||
     all(par >= model@paramLower, na.rm = TRUE)) &&
    (is.null(model@paramUpper) ||
     all(par <= model@paramUpper, na.rm = TRUE));
}