Nothing
#' k-fold confirmatory factor analysis
#'
#' Runs CFA for models identified from a previous EFA.
#'
#' @inheritParams kfa
#'
#' @return A list of \code{lavaan} objects
#'
#' @import lavaan
#'
#' @noRd
k_cfa <- function(syntax, data, variables, ordered, estimator, missing, ...){
## calculate and extract sample statistics
sampstats <- sample_stats(data = data,
variables = variables,
ordered = ordered,
estimator = estimator,
missing = missing,
...)
## run CFAs
mods <- vector(mode = "list", length = length(syntax))
for(c in 1:length(syntax)){
if(nchar(syntax[[c]]) > 0){
fit <- lavaan::cfa(model = syntax[[c]],
sample.cov = sampstats$cov,
sample.nobs = sampstats$nobs,
sample.th = sampstats$th,
# sample.mean = sampstats$mean,
meanstructure = FALSE,
WLS.V = sampstats$wls.v,
NACOV = sampstats$nacov,
estimator = estimator,
missing = missing,
parameterization = "delta")
mods[[c]] <- fit
} else {
mods[[c]] <- NULL
}
}
mods <- mods[lengths(mods) != 0] # dropping NULL elements
names(mods) <- names(syntax)[which(nchar(syntax) > 0)] # adding names
return(mods)
}
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.