R/faLooper.R

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

faLooper <- function(params,objfn,fixptfn,
                       localHasConvergedParameter,
                       localHasConvergedLogLike,
                       maxIterations,
                       stopType) {
  s3faLooper(params,objfn,fixptfn,
             localHasConvergedParameter,
             localHasConvergedLogLike,
             maxIterations,
             stopType)
}