Unstandardizes construct scores of an estimated SEMinR model

seminr_unstandardize_scores.R

# Unstandardizes construct scores of an estimated SEMinR model
# (Based on rescale function of plspm)
# usage:
#   my_model <- estimate_pls(...)
#   ustd <- unstandardize(my_model)
unstandardize_scores <- function(pls_model) {
  construct_names <- seminr:::construct_names(pls_model$smMatrix)

  construct_names -> .
    sapply(., seminr:::items_of_construct, model=pls_model) -> .
    unlist(.) -> .
    unname(.) -> .
    . -> construct_items

  relevant_data <- pls_model$data[, construct_items]
  weights <- pls_model$outer_weights[names(relevant_data), ]
  weight_sums <- matrix(colSums(weights), ncol(weights), ncol(weights))

  weights %*% (1/weight_sums) -> .
    .[weights == 0] <- 0
    colnames(.) <- colnames(weights)
    . -> normalized_wts

  unstd_scores <- as.matrix(relevant_data) %*% normalized_wts
  as.data.frame(unstd_scores)
}