R/faPlotCheckArgs.R

In aciobanusebi/s2fa: Factor Analysis (FA), Simple Supervised FA (S2FA), Simple Semi-Supervised FA (S3FA), Missing S3FA (MS3FA)

faPlotCheckArgs <- function(X_t,Z_t,p,
                              add,
                              addPoints,
                              addLr,
                              checkPositiveDefinite) {
  if(!is.logical(checkPositiveDefinite)) {
    stop("checkPositiveDefinite must be TRUE/FALSE")
  }
  
  checkMatrix(X_t)
  checkMatrix(Z_t)
  checkParams_fa(p,checkPositiveDefinite)
  checkMatrices(X_t,Z_t)
  checkParamsMatrixX(p,X_t)
  checkParamsMatrixZ(p,Z_t)
  
  if(!is.logical(add)) {
    stop("add must be TRUE or FALSE")
  }
  if(!is.logical(addPoints)) {
    stop("addPoints must be TRUE or FALSE")
  }
  if(!is.logical(addLr)) {
    stop("addLr must be TRUE or FALSE")
  }
}