R/checkRegularizedMatrixExistance.R

In jhorzek/regmx:

#' checkRegularizedMatrixExistance
#'
#'
#' checks if the matrix that should be regularized actually exists
#' @author Jannik Orzek
#'
#' @export
checkRegularizedMatrixExistance <- function(regOn, mxModelObject, regIndicators){
  for(matrixName in regOn) {
    if(!matrixName %in% names(mxModelObject)){
      stop(paste("Matrix ", matrixName, " provided in regOn was not found in the provided regModel", sep = ""))
    }
    if(!matrixName %in% names(regIndicators)){
      stop(paste("Matrix ", matrixName, " provided in regOn was not found in the regIndicator list.", sep = ""))
    }
  }

}