[R] Confirmatory Factor Analysis

[Bert Gunter]

Please read the posting guide linked below, which says:

"Questions about statistics: The R mailing lists are primarily
intended for questions and discussion about the R software. However,
questions about statistical methodology are sometimes posted. If the
question is well-asked and of interest to someone on the list, it may
elicit an informative up-to-date answer."

Also note:

"For questions about functions in standard packages distributed with R
(see the FAQ Add-on packages in R), ask questions on R-help.
If the question relates to a contributed package , e.g., one
downloaded from CRAN, try contacting the package maintainer first. You
can also use find("functionname") and
packageDescription("packagename") to find this information. Only send
such questions to R-help or R-devel if you get no reply or need
further assistance. This applies to both requests for help and to bug
reports."

So do not be surprised if you do not get a response here. Cross Validated, i.e.
stats.stackexchange.com
*might* be a better alternative.

Cheers,
Bert Gunter


On Fri, Nov 19, 2021 at 4:40 PM AbouEl-Makarim Aboueissa
<abouelmakarim1962 using gmail.com> wrote:
>
>  Dear All:
>
>
>
> I am conducting a Confirmatory Factor Analysis (CFA) for the attached data.
> Here is what I did. please see below
>
> I do need your help with the structure of the model. I believe that what I
> used is the correlated CFA model. If I am wrong, please fix me. I need your
> help with the structure of the CFA uncorrelated model.
>
>
>
> Thank you very much for your help in advance
>
>
>
> Abou
>
>
>
>
>
> datacfa<-read.table("G:/data_for_R.txt", header=TRUE)
>
> head(datacfa)
>
>
>
> install.packages("lavaan")
>
> library(lavaan)
>
>
>
> install.packages("semPlot")
>
> library(semPlot)
>
>
>
> install.packages("parameters")
>
> library(parameters)
>
>
>
> #### model structure
>
>
>
> CAF.Factors <- 'Factor1 =~ X11 + X13 + X14 + X15 + X17
>
>                             Factor2 =~ X6 + X7 + X12 + X16 + X19
>
>                              Factor3 =~ X9 + X18 + X21
>
>                              Factor4 =~ X19 + X20 + X22'
>
>
>
> fourfactors.model.a <- cfa(CAF.Factors, data=datacfa,std.lv=TRUE)
>
>
>
> summary(fourfactors.model.a, fit.measures=TRUE,standardized=TRUE)
>
>
>
> semPaths(fourfactors.model.a, ncharNodes = 0, style = "lisrel", rotation =
> 2)
>
>
>
> #####  model_parameters(fourfactors.model.a)
>
>
>
> model_parameters(fourfactors.model.a, standardize = TRUE)
>
>
> ______________________
>
>
> *AbouEl-Makarim Aboueissa, PhD*
>
> *Professor, Statistics and Data Science*
> *Graduate Coordinator*
>
> *Department of Mathematics and Statistics*
> *University of Southern Maine*
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.