R/mS3faLooper.R

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

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