R/2.6.main.R

In Mmcsd: Modeling Complex Longitudinal Data in a Quick and Easy Way

getGoodnessOfFit <- function(fitTheta, fit, fittingType) {
  gofMeasures <- list()
  gofMeasures$RMR <- getRMR(fit, fitTheta)
  gofMeasures$AGFI <- getAGFI(fit, fitTheta, fittingType)

  return(gofMeasures)
}