model_summary {pompom}

Provide model summary.

Description

Provide model summary.

Usage

model_summary(model.fit, var.number, lag.order)

Arguments

model.fit

model fit object generated by lavaan

var.number

number of variables in the time-series

lag.order

lag order of model

Details

Model fit criteria: 3 out of 4 rule, meaning 3 out of 4 critea should be satisfied, including CFI and TLI should be greater than 0.95, RMSEA and SRMR should be less than 0.08.

Value

beta matrix estimates

matrix of standard error of beta

matrix of psi estimates

fit statistics CFI

fit statistics TLI

fit statistics RMSEA

fit statistics SRMR

Examples

mdl <- model_summary(model.fit = usemmodelfit,
                     var.number = 3,
                     lag.order = 1)
mdl$beta
mdl$beta.se
mdl$psi
mdl$cfi
mdl$tli
mdl$rmsea
mdl$srmr