R/07_FIMLestimator_fitfunction.R

In psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

# fimlEstimator <- function(prep){
#   # What distribution?
#   distribution <- model@distribution
#   
#   # Function to use:
#   distFun <- switch(distribution,
#           "Gaussian" = fimlEstimator_Gauss)
#   
#   # Run and return:
#   distFun(x, model)
# }