R/07_FIMLestimator_fitfunction.R

# fimlEstimator <- function(prep){
#   # What distribution?
#   distribution <- model@distribution
#   
#   # Function to use:
#   distFun <- switch(distribution,
#           "Gaussian" = fimlEstimator_Gauss)
#   
#   # Run and return:
#   distFun(x, model)
# }
SachaEpskamp/psychonetrics documentation built on Sept. 1, 2023, 3:40 a.m.