Nothing
#' @title Bounds for Parameters
#'
#' @description Use the new `bounds` option in [lavaan()]
#'
#' @details It uses [update()] to get the bounds.
#'
#' @return A lavaan parameter table in which the lower and upper bounds
#' are set.
#'
#' @param sem_out The SEM output. Currently \code{lavaan} output only.
#'
#' @param bounds This argument will be passed to [lavaan::lavaan()].
#'
#' @noRd
set_bounds <- function(sem_out = NULL,
bounds = NULL) {
# Support the bounds argument in lavaan.
# Not ready. Not used for now.
sem_out_b <- lavaan::update(sem_out,
bounds = bounds,
do.fit = FALSE)
lavaan::parameterTable(sem_out_b)
}
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.