R/faLooperTurbo.R

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

faLooperTurbo <- function(params,objfn,fixptfn,
                       localHasConvergedParameter,
                       localHasConvergedLogLike,
                       maxIterations,
                       stopType,
                       methods=c("em", "squarem", "pem")) {
  s3faLooperTurbo(params,objfn,fixptfn,
                  localHasConvergedParameter,
                  localHasConvergedLogLike,
                  maxIterations,
                  stopType,
                  methods)
}