R/test_helpers.R

In semboottools: Bootstrapping Helpers for Structural Equation Modelling

get_std <- function(object) {
  tmp <- lavaan::standardizedSolution(object,
                                      se = FALSE)
  pnames <- lavaan::lav_partable_labels(tmp)
  out <- tmp$est.std
  names(out) <- pnames
  out
}