R/s2faFitCheckArgs.R

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

s2faFitCheckArgs <- function(X_t, 
                             Z_t, 
                             type, 
                             lambdaRidge) {
  type <- tolower(type)
  checkType(type)
  checkLambdaRidge(lambdaRidge)
  checkMatrix(X_t)
  checkMatrix(Z_t)
  checkMatrices(X_t,Z_t)
}