R/05_MLestimator_fitfunction.R

In SachaEpskamp/psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

# maxLikEstimator <- function(x, model){
#   # What distribution?
#   distribution <- model@distribution
#   
#   # Function to use:
#   distFun <- switch(distribution,
#           "Gaussian" = maxLikEstimator_Gauss,
#           "Ising" = maxLikEstimator_Ising)
#   
#   # Run and return:
#   distFun(x, model)
# }