Setup initial file structure
This commit is contained in:
363
Modules/ado/personal/c/cfa.ado
Normal file
363
Modules/ado/personal/c/cfa.ado
Normal file
@ -0,0 +1,363 @@
|
||||
capture program drop cfa
|
||||
program cfa,rclass
|
||||
syntax varlist, PARTition(numlist integer >0) [SCOrename(string) CFAMethod(string) CFAStand]
|
||||
|
||||
|
||||
local C = 0
|
||||
foreach z in `partition' {
|
||||
local C = `C' + `z'
|
||||
}
|
||||
|
||||
local nbvars : word count `varlist'
|
||||
if `C' != `nbvars' {
|
||||
di in red "The sum of the numbers in the partition option is different from the number of variables precised in varlist"
|
||||
exit
|
||||
}
|
||||
|
||||
local P:word count `partition'
|
||||
if "`scorename'" !="" {
|
||||
local S:word count `scorename'
|
||||
if `P'!=`S' {
|
||||
di in red "The number of score names given is different from the number of dimensions in the partition option"
|
||||
exit
|
||||
}
|
||||
}
|
||||
|
||||
local i = 1
|
||||
foreach x in `varlist' {
|
||||
local var`i' = "`x'"
|
||||
local `++i'
|
||||
}
|
||||
|
||||
local name
|
||||
local nname
|
||||
if "`scorename'"=="" {
|
||||
forvalues i = 1/`P' {
|
||||
local name "Dim`i'"
|
||||
local nname `nname' `name'
|
||||
}
|
||||
local scorename = "`nname'"
|
||||
}
|
||||
|
||||
local upscorename = upper("`scorename'")
|
||||
|
||||
*capture calcscore `varlist', scorename(`upscorename') partition(`partition')
|
||||
|
||||
local i = 0
|
||||
local y = 1
|
||||
tokenize `upscorename'
|
||||
foreach x in `partition' {
|
||||
local `i++'
|
||||
if `i' == 1 local s = `x'
|
||||
else local s = `s' +`x'
|
||||
|
||||
local liste = ""
|
||||
forvalues w = `y'/`s' {
|
||||
local liste `liste' `var`w''
|
||||
}
|
||||
|
||||
local a = "(``i'' -> `liste')"
|
||||
local z `z' `a'
|
||||
|
||||
local y = `s'+1
|
||||
}
|
||||
/*
|
||||
local cpt = 0
|
||||
if "`cfa_ml'" != "" {
|
||||
local method = "ml"
|
||||
local cpt `cpt' + 1
|
||||
}
|
||||
if "`cfa_mlmv'" != "" {
|
||||
local method = "mlmv"
|
||||
local cpt `cpt' + 1
|
||||
}
|
||||
if "`cfa_adf'" != "" {
|
||||
local method = "adf"
|
||||
local cpt `cpt' + 1
|
||||
}
|
||||
else local method = "ml"
|
||||
if `cpt'>1 {
|
||||
di in red "You must choose between cfa_ml, cfa_mlmv or cfa_adf (the options are exclusive)"
|
||||
exit 119
|
||||
}
|
||||
*/
|
||||
|
||||
|
||||
if "`cfamethod'" == "" local cfamethod = "ml"
|
||||
|
||||
if "`cfamethod'" != "ml" & "`cfamethod'" != "mlmv" & "`cfamethod'" != "adf" {
|
||||
di "`cfamethod'"
|
||||
di in red "option cfamethod incorrectly specified (choose among ml, mlmv and adf)"
|
||||
error 198
|
||||
}
|
||||
|
||||
|
||||
if "`cfastand'" != "" local cfastand = "stand"
|
||||
|
||||
di as result "{hline}"
|
||||
di "{bf:Confirmatory factor analysis}"
|
||||
di as result "{hline}"
|
||||
di
|
||||
|
||||
qui sem `z', method(`cfamethod') `cfastand'
|
||||
|
||||
/*
|
||||
sem (HA -> ioc1-ioc4) (PSE -> ioc5-ioc8) (W -> ioc9-ioc15) ///
|
||||
(BCC -> ioc16-ioc18) (AC -> ioc19-ioc21) (AE -> ioc22-ioc25) ///
|
||||
(LI -> ioc26-ioc32) (MOC -> ioc33-ioc37)
|
||||
,stand
|
||||
cov(e.ioc36*e.ioc37
|
||||
e.ioc28*e.ioc29 e.ioc14*e.ioc15 e.ioc23*e.ioc25 e.ioc33*e.ioc34 ///
|
||||
e.ioc9*e.ioc10 e.ioc6*e.ioc8 e.ioc5*e.ioc7) // method(mlmv)
|
||||
*/
|
||||
|
||||
/* factor loadings */
|
||||
|
||||
matrix r = r(table)
|
||||
matrix r = r[1,1...]
|
||||
matrix r = r'
|
||||
local n = `nbvars'*2
|
||||
|
||||
matrix a = r[1,1]
|
||||
forvalues i=3(2)`n' {
|
||||
matrix b = r[`i',1]
|
||||
matrix a = a\b
|
||||
}
|
||||
|
||||
/* standard error */
|
||||
|
||||
matrix r = r(table)
|
||||
matrix r = r[2,1...]
|
||||
matrix r = r'
|
||||
local n = `nbvars'*2
|
||||
|
||||
matrix se = r[1,1]
|
||||
forvalues i=3(2)`n' {
|
||||
matrix b = r[`i',1]
|
||||
matrix se = se\b
|
||||
}
|
||||
|
||||
|
||||
/* intercepts */
|
||||
|
||||
matrix r = r(table)
|
||||
matrix r = r[1,1...]
|
||||
matrix r = r'
|
||||
local n = `nbvars'*2
|
||||
|
||||
matrix a2 = r[2,1]
|
||||
forvalues i=4(2)`n' {
|
||||
matrix b = r[`i',1]
|
||||
matrix a2 = a2\b
|
||||
}
|
||||
|
||||
/* variances des erreurs */
|
||||
|
||||
local m = `n'+1
|
||||
matrix r = r(table)
|
||||
matrix r = r[1,`m'...]
|
||||
matrix r = r'
|
||||
|
||||
matrix a3 = r[1,1]
|
||||
forvalues i=2/`nbvars' {
|
||||
matrix b = r[`i',1]
|
||||
matrix a3 = a3\b
|
||||
}
|
||||
|
||||
/* variance des dimensions*/
|
||||
|
||||
matrix r = r(table)
|
||||
local n = `nbvars'*3+1
|
||||
matrix r = r[1,`n'...]
|
||||
matrix r = r'
|
||||
|
||||
matrix var = r[1,1]
|
||||
forvalues i=2/`P' {
|
||||
matrix b = r[`i',1]
|
||||
matrix var = var\b
|
||||
}
|
||||
|
||||
|
||||
local i = 1
|
||||
foreach v in `varlist' {
|
||||
local var`i' = abbrev("`v'",10)
|
||||
local `++i'
|
||||
}
|
||||
|
||||
|
||||
local i = 1
|
||||
foreach s in `scorename' {
|
||||
local s`i' = abbrev("`s'",10)
|
||||
local sc `sc' `s`i''
|
||||
local `++i'
|
||||
|
||||
}
|
||||
|
||||
local max = 10
|
||||
local dec = `max'+5
|
||||
|
||||
local max2 = 10
|
||||
|
||||
local dec2 = `dec'+`max2'+5
|
||||
|
||||
local a = e(N)
|
||||
di "{text:Number of used individuals: `a'}"
|
||||
di
|
||||
di _col(`=`dec2'+17+4') "{bf:Estimation:}"
|
||||
|
||||
|
||||
di as result "{bf:Item}" _c
|
||||
di _col(`dec') "{bf:Dimension}" _c
|
||||
*local col = `dec'+17
|
||||
di _col(`dec2') "{bf:Factor}" _c
|
||||
*local col = `dec2'+17
|
||||
di _col(`=`dec2'+14') "{bf:Standard}" _c
|
||||
*local col = `col'+17
|
||||
di _col(`=`dec2'+28') "{bf:Intercept}" _c
|
||||
*local col = `col'+13
|
||||
|
||||
|
||||
if "`cfastand'" == "" {
|
||||
di _col(`=`dec2'+42') "{bf:Variance of}" _c
|
||||
di _col(`=`dec2'+56') "{bf:Variance of}"
|
||||
|
||||
di _col(`dec2') "{bf:loading}" _c
|
||||
*local col = `dec2'+17
|
||||
di _col(`=`dec2'+14') "{bf:error}" _c
|
||||
*local col = `col'+30
|
||||
|
||||
di _col(`=`dec2'+42') "{bf:error}" _c
|
||||
di _col(`=`dec2'+56') "{bf:dimension}"
|
||||
local h = `dec2'+66
|
||||
}
|
||||
else {
|
||||
di _col(`=`dec2'+42') "{bf:Variance of}"
|
||||
|
||||
di _col(`dec2') "{bf:loading}" _c
|
||||
*local col = `dec2'+17
|
||||
di _col(`=`dec2'+14') "{bf:error}" _c
|
||||
*local col = `col'+30
|
||||
|
||||
di _col(`=`dec2'+42') "{bf:errors}"
|
||||
local h = `dec2'+52
|
||||
}
|
||||
|
||||
|
||||
di "{hline `h'}"
|
||||
|
||||
local i = 1
|
||||
local y = 1
|
||||
foreach x in `partition' {
|
||||
if `i' == 1 local s = `x'
|
||||
else local s = `s' +`x'
|
||||
|
||||
forvalues z = `y'/`s' {
|
||||
tokenize `sc'
|
||||
di "{bf:`var`z''}"_c
|
||||
di _col(`dec') "{bf:``i''}" _c
|
||||
local t = a[`z',1]
|
||||
local t : di %7.2f `t'
|
||||
*local col = `dec'+17
|
||||
di _col(`dec2') "{text:`t'}" _c
|
||||
|
||||
local t = se[`z',1]
|
||||
local t : di %8.2f `t'
|
||||
*local col = `dec2'+9
|
||||
di _col(`=`dec2'+14') "{text:`t'}" _c
|
||||
|
||||
local t = a2[`z',1]
|
||||
local t : di %9.2f `t'
|
||||
*local col = `col'+17
|
||||
di _col(`=`dec2'+28') "{text:`t'}" _c
|
||||
|
||||
local t = a3[`z',1]
|
||||
local t : di %11.2f `t'
|
||||
*local col = `col'+13
|
||||
|
||||
|
||||
if "`cfastand'" == "" & `z' == `y'{
|
||||
di _col(`=`dec2'+42') "{text:`t'}" _c
|
||||
local t = var[`i',1]
|
||||
local t : di %11.2f `t'
|
||||
*local col = `dec2'+17+17+13+14
|
||||
di _col(`=`dec2'+56') "{text:`t'}"
|
||||
}
|
||||
else di _col(`=`dec2'+42') "{text:`t'}"
|
||||
}
|
||||
di
|
||||
local `i++'
|
||||
local y = `s'+1
|
||||
}
|
||||
|
||||
qui estat gof, stats(all)
|
||||
|
||||
local chi2 = r(chi2_ms)
|
||||
local p = r(p_ms)
|
||||
local ddl = r(df_ms)
|
||||
local ratio = `chi2'/`ddl'
|
||||
local rmsea = r(rmsea)
|
||||
local lb = r(lb90_rmsea)
|
||||
local ub = r(ub90_rmsea)
|
||||
local nfi = 1-(r(chi2_ms)/r(chi2_bs))
|
||||
local rni = 1-(r(chi2_ms)-r(df_ms))/(r(chi2_bs)-r(df_bs))
|
||||
local cfi = r(cfi)
|
||||
local ifi = (r(chi2_bs)-r(chi2_ms))/(r(chi2_bs)-r(df_ms))
|
||||
local mci = exp(-0.5*((r(chi2_ms)-r(df_ms))/(e(N)-1)))
|
||||
local srmr = r(srmr)
|
||||
|
||||
di
|
||||
di "{bf:Goodness of fit}"
|
||||
di
|
||||
|
||||
di as result _col(4) "chi2" _c
|
||||
di as result _col(20) "ddl" _c
|
||||
di as result _col(28) "chi2/ddl" _c
|
||||
di as result _col(42) "RMSEA [90% CI]" _c
|
||||
di as result _col(64) "SRMR" _c
|
||||
di as result _col(74) "NFI" _c
|
||||
di as result _col(84) "RNI" _c
|
||||
di as result _col(94) "CFI" _c
|
||||
di as result _col(104) "IFI" _c
|
||||
di as result _col(114) "MCI"
|
||||
|
||||
*di as result "`P' dimensions" _c
|
||||
|
||||
local t : di %7.2f `chi2'
|
||||
di "{text:`t'}" _c
|
||||
local t : di %3.0f `ddl'
|
||||
di _col(20) "{text:`t'}" _c
|
||||
local t : di %7.1f `ratio'
|
||||
di _col(29) "{text:`t'}" _c
|
||||
local t : di %5.3f `rmsea'
|
||||
local l : di %5.3f `lb'
|
||||
local u : di %5.3f `up'
|
||||
di _col(40) "{text:`t' [`l' ; `u']}" _c
|
||||
local t : di %5.3f `srmr'
|
||||
di _col(63) "{text:`t'}" _c
|
||||
local t : di %5.3f `nfi'
|
||||
di _col(72) "{text:`t'}" _c
|
||||
local t : di %5.3f `rni'
|
||||
di _col(82) "{text:`t'}" _c
|
||||
local t : di %5.3f `cfi'
|
||||
di _col(92) "{text:`t'}" _c
|
||||
local t : di %5.3f `ifi'
|
||||
di _col(102) "{text:`t'}" _c
|
||||
local t : di %5.3f `mci'
|
||||
di _col(112) "{text:`t'}"
|
||||
local p : di %5.3f `p'
|
||||
di "{text:(p-value = `p')}"
|
||||
di as result
|
||||
|
||||
|
||||
/*
|
||||
matrix ind = (`chi2',`ddl',`ratio',`rmsea',`nfi',`rni',`cfi',`ifi',`srmr')
|
||||
matrix colnames ind = "chi2" "ddl" "chi2/ddl" "RMSEA" "NFI" "RNI" "CFI" "IFI" "SRMR"
|
||||
matrix rownames ind = ""
|
||||
di
|
||||
di "{bf:Goodness of fit}"
|
||||
matrix list ind, format(%6.3f) noheader
|
||||
*/
|
||||
end
|
||||
|
||||
*cfa ioc1-ioc37, partition(4 4 7 3 3 4 7 5) scorename(HAaaaaaaaaaaaaaaaaaaaaaaaaaz PSE W BCC AC AE LI MOC) cfamethod(ml) //cfastand
|
||||
*cfa x1-x40, partition(5 5 5 5 5 5 5 5) cfastand
|
||||
Reference in New Issue
Block a user