R/s2faPredictCheckArgs.R

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

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