Macro SAS pour calculer le Omega total de McDonald

Dernière, la littérature psychométrique semble en venir au consensus que le coefficient alpha (souvent attribué à tord à Cronbach, alors qu’il provient de Guttman) n’est pas le meilleur estimateur de la cohérence interne d’un test. Voici une macro SAS pour calculer un autre estimateur réputé comme meilleur que le Alpha de Cronbach :

/*
MACRO PAR DENIS TALBOT B.Sc.
denis.talbot3.1415@gmail.com

Dernière mise-à-jour 16 octobre 2009, SAS v9.2

Appeller la macro par
omega(data=,var=,out=);
Où var doit être une liste de variable sans raccourci (e.g. -, –).
Out est le nom SAS pour le fichier de sortie

RÉFÉRENCES:

Pour ne pas utiliser la alpha de Cronbach:

Sijtsma, K. (2009). On the use, the misuse, and the very limited usefulness of Cronbach’s alpha. Psychometrika, 74(1), 107-120.

Huysamen, G.K. (2006). Coefficient alpha: Unnecessarily ambiguous, unduly ubiquitous. SA Journal of Industrial Psychology, 32(4), 34-40.

Sur l’Omega total:

*Revelle, W., & Zinbarg, R.E. (2009). Coefficients alpha, beta, omega and the glb: comments on Sijtsma. Psychometrika. doi:10.1007/s11336-008-9102-z.

McDonald, R.P. (1999). Test theory: A unified treatment. Hillsdale: Erlbaum.

*Référence principale. La macro SAS présentée ici est inspirée du programme R du package psych
mentionnée dans cet article.
*/

%MACRO omega(data=,var=, out=);
%let _i=1;
%do %while (%scan(&var,&_i) ne %str() );
%let arg&_i=%scan(&var,&_i);
%let _i=%eval(&_i+1);
%end;
%let nvar=%eval(&_i-1);

PROC CALIS DATA = &data OUTEST = _cfa_ METHOD = ML NOPRINT;
VAR &var;
LINEQS
%DO _i=1 %TO (&nvar – 1);
&&arg&_i = f1 + e&_i,
%END;
&&arg&nvar =f1 + e&nvar;
std
f1 = 1,
e1 – e&nvar = ee:;
RUN;

DATA _cfa_;
SET _cfa_;
IF _TYPE_ = ‘PARMS’;
s_uniq = sum(of ee1-ee&nvar);
KEEP s_uniq;
RUN;
ODS LISTING CLOSE;
ODS OUTPUT PearsonCorr=PearsonCorr;
PROC CORR DATA = &data; VAR &var; RUN;
ODS LISTING;
DATA PearsonCorr;
SET PearsonCorr;
VT = sum(of &arg1–&&arg&nvar);
KEEP VT;
RUN;

PROC MEANS DATA = PearsonCorr NOPRINT; Var VT; OUTPUT OUT = PearsonCorr SUM=VT; RUN;

DATA &out; MERGE _cfa_ PearsonCorr; Omega = 1 – s_uniq/VT; KEEP Omega; RUN;

PROC PRINT DATA = &out; RUN;

%MEND;

Denis

Macro pour le Rho de Jöreskog

Bonjour,

 

Voici ma première chronique “Le saviez-vous” !!

 

J’ai construit une macro dans SAS évidemment afin de déterminer le Rho de Joreskog (c’est une mesure de cohérence interne, tsé j’en aie parlé dans ma présentation :D)

 

Alors la voici,

 

 

*Insérer le nom du jeu de données obtenu avec le ods output de la procédure CALIS et StdManifestEq=;

*Insérer le nom de la variable désirée pour déterminer sa cohérence interne;

*Inscrire la position du premier caractère de la variable;

*Inscrire la position du dernier caractère de la variable;

 

%macro

Rho_de_Joreskog(fichier=, variable=, debut_var=, fin_var=);

data Joreskog;

set &fichier;

retain lambda_&variable Var_&variable;

if control ne

‘b’ then delete;

if

%upcase(substr(Variable,&debut_var,&fin_var))=%upcase(“&variable”) then do;

lambda_&variable+Coefficient1;

Var_&variable+Coefficient2**

2;

end;

else delete;

run;

data Joreskog;

set Joreskog;

rho_joreskog_&variable=lambda_&variable**

2/(lambda_&variable**2+Var_&variable);

keep variable Rho_Joreskog_&variable;

run;

proc means noprint;

var Rho_Joreskog_&variable;

output out=Joreskog max=Rho_Joreskog_&variable;

run;

data Joreskog;

set Joreskog;

keep Rho_Joreskog_&variable;

run;

proc print;run;

%mend

;

%Rho_de_Joreskog(fichier=Joreskog1, variable=mi, debut_var=

1, fin_var=2);

 

 

Si vous avez des questions n’hésitez pas à me contacter !!

 

Simon Olivier Fournier !