R/faPredictCheckArgs.R

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

faPredictCheckArgs <- function(p,X_t_test,
                               checkPositiveDefinite) {
  if(!is.logical(checkPositiveDefinite)) {
    stop("checkPositiveDefinite must be TRUE/FALSE")
  }
  checkMatrix(X_t_test)
  checkParams_fa(p,checkPositiveDefinite)
  checkParamsMatrixX(p,X_t_test)
}