R/04_generalfit_VCOV.R

In psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

Defines functions getVCOV

Documented in getVCOV

getVCOV <- function(model){
  if (!is.null(model@information)){
    Info <- model@information
  } else {
    if (model@cpp){
      Info <- psychonetrics_FisherInformation_cpp(model)
    } else {
      Info <- psychonetrics_FisherInformation(model)      
    }

  }
  
  1/sum(model@sample@groups$nobs) * as.matrix(solve_symmetric(Info))
}

Try the psychonetrics package in your browser