Nothing
#' @noRd
# Remove from a vector of row ids parameters that are variances or error
# variances.
remove_variances <- function(pars,
sem_out) {
ptable <- lavaan::parameterTable(sem_out)
is_var <- (ptable$lhs == ptable$rhs) & (ptable$op == "~~")
row_id <- seq_len(nrow(ptable))
id_var <- row_id[is_var]
out <- pars[!(pars %in% id_var)]
out
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.