R/mS3faLooperTurbo.R

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

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