R/factor_score_mean.R

In dienlin/td: Functions For Everyday Use

#' Extract factor scores from latent model
#' @description # Extract factor scores from latent model
#' @export
factor_score_mean <- function(object, 
                              name,
                              save_as_object = TRUE) {
  
  tmp <- object %>%
    lavPredict(type = "ov") %>% 
    rowMeans()
  
  if(isTRUE(save_as_object)) {
    assign(paste0(name, "_fs"), tmp, envir = .GlobalEnv)
  }
}