Nothing
## File Name: lsem_fit_initial_model_sufficient_statistics.R
## File Version: 0.064
lsem_fit_initial_model_sufficient_statistics <- function(dat, variables_model,
sampling_weights, has_meanstructure)
{
data_suff <- dat[, variables_model]
dat_resp <- 1 - is.na(data_suff)
wmean <- lsem_weighted_mean( x=data_suff, weights=sampling_weights,
x_resp=dat_resp)$mean
res <- lsem_weighted_cov( x=data_suff, weights=sampling_weights, x_resp=dat_resp)
wcov <- res$cov
Nobs <- round(res$Nobs)
if (! has_meanstructure){
wmean <- NULL
}
#--- output
res <- list(wmean=wmean, wcov=wcov, Nobs=Nobs )
return(res)
}
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.