{"id":2657,"date":"2026-09-06T19:40:17","date_gmt":"2026-09-06T19:40:17","guid":{"rendered":"http:\/\/french.arabpsychology.com\/statistics\/comment-realiser-test-mcnemar-dans-r\/"},"modified":"2026-09-06T19:40:17","modified_gmt":"2026-09-06T19:40:17","slug":"comment-realiser-test-mcnemar-dans-r","status":"publish","type":"psych_stat","link":"https:\/\/french.arabpsychology.com\/?psych_stat=comment-realiser-test-mcnemar-dans-r","title":{"rendered":"Comment r\u00e9aliser le test de McNemar dans R"},"content":{"rendered":"<p>Dans le paysage contemporain de la recherche quantitative en sciences humaines, sociales et biom\u00e9dicales, l&rsquo;analyse des donn\u00e9es cat\u00e9gorielles longitudinales occupe une place pr\u00e9pond\u00e9rante. Qu&rsquo;il s&rsquo;agisse d&rsquo;\u00e9valuer l&rsquo;efficacit\u00e9 d&rsquo;une psychoth\u00e9rapie br\u00e8ve sur l&rsquo;\u00e9tat anxieux, de mesurer l&rsquo;\u00e9volution d&rsquo;une intention de vote \u00e0 la suite d&rsquo;un d\u00e9bat politique ou de quantifier le changement d&rsquo;adh\u00e9sion \u00e0 une th\u00e9rapie m\u00e9dicale, les chercheurs sont fr\u00e9quemment confront\u00e9s \u00e0 des protocoles o\u00f9 la variable d&rsquo;int\u00e9r\u00eat est binaire et recueillie de mani\u00e8re r\u00e9p\u00e9t\u00e9e aupr\u00e8s des m\u00eames sujets. Face \u00e0 cette configuration m\u00e9thodologique, le recours erron\u00e9 au test classique d&rsquo;ind\u00e9pendance du chi-carr\u00e9 de Karl Pearson constitue l&rsquo;un des \u00e9cueils statistiques les plus r\u00e9pandus de la litt\u00e9rature empirique. En ignorant la corr\u00e9lation intrasujet inh\u00e9rente aux mesures appari\u00e9es, cette pratique invalide les postulats fondamentaux d&rsquo;ind\u00e9pendance et biaise gravement l&rsquo;estimation du risque d&rsquo;erreur de premi\u00e8re esp\u00e8ce.<\/p>\n<p>Le test d\u00e9velopp\u00e9 par le psychologue et statisticien Quinn McNemar en 1947 r\u00e9pond pr\u00e9cis\u00e9ment \u00e0 cette impasse \u00e9pist\u00e9mologique et m\u00e9thodologique. En d\u00e9pla\u00e7ant l&rsquo;attention de l&rsquo;ensemble de l&rsquo;\u00e9chantillon vers les seules trajectoires de changement individuel, ce test non param\u00e9trique permet d&rsquo;\u00e9valuer rigoureusement l&rsquo;hypoth\u00e8se d&rsquo;homog\u00e9n\u00e9it\u00e9 marginale au sein d&rsquo;une table de contingence carr\u00e9e. Dans l&rsquo;\u00e9cosyst\u00e8me du logiciel libre R, v\u00e9ritable standard de fait pour l&rsquo;analyse statistique avanc\u00e9e, la mise en \u0153uvre de cette m\u00e9thode b\u00e9n\u00e9ficie d&rsquo;une flexibilit\u00e9 remarquable, allant de la fonction native standard aux extensions contemporaines d\u00e9di\u00e9es aux petits \u00e9chantillons ou aux variables polytomiques. L&rsquo;appropriation de ces outils informatiques exige n\u00e9anmoins une compr\u00e9hension intime des principes math\u00e9matiques sous-jacents, sans laquelle le praticien risque de m\u00e9conna\u00eetre les subtilit\u00e9s li\u00e9es aux corrections de continuit\u00e9, au calcul des tailles d&rsquo;effet ou \u00e0 la gestion des cellules discordantes creuses.<\/p>\n<p>Ce guide exhaustif a pour vocation de fournir aux chercheurs, statisticiens et \u00e9tudiants avanc\u00e9s une r\u00e9f\u00e9rence th\u00e9orique, pratique et computationnelle compl\u00e8te pour la r\u00e9alisation du test de McNemar sous R. En abordant successivement les fondements axiomatiques du test, ses postulats d&rsquo;application, sa programmation pas \u00e0 pas, la gestion des faibles effectifs par des proc\u00e9dures exactes, l&rsquo;estimation rigoureuse des tailles d&rsquo;effet et les extensions multivari\u00e9es comme le test de sym\u00e9trie de Bowker, ce document vise \u00e0 \u00e9lever le niveau de rigueur m\u00e9thodologique des analyses de transition d&rsquo;\u00e9tat. Chaque \u00e9tape conceptuelle sera illustr\u00e9e par des protocoles d&rsquo;ex\u00e9cution sous R, accompagn\u00e9s de recommandations de r\u00e9daction conformes aux exigences \u00e9ditoriales acad\u00e9miques internationales les plus strictes.<\/p>\n<h2>1. Fondements th\u00e9oriques et \u00e9pist\u00e9mologiques du test de McNemar en psychologie<\/h2>\n<h3>1.1 Origine historique et contextualisation biom\u00e9trique<\/h3>\n<p>L&rsquo;\u00e9mergence du test de McNemar s&rsquo;inscrit au c\u0153ur d&rsquo;une p\u00e9riode de transition m\u00e9thodologique majeure dans l&rsquo;histoire de la psychom\u00e9trie et des sciences du comportement au milieu du vingti\u00e8me si\u00e8cle. En 1947, <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/BF02295996\">Quinn McNemar<\/a>, alors professeur de psychologie et de statistique \u00e0 l&rsquo;Universit\u00e9 de Stanford, publie dans la prestigieuse revue <em>Psychometrika<\/em> un article fondateur intitul\u00e9 \u00ab <em>Note on the sampling error of the difference between correlated proportions or percentages<\/em> \u00bb. \u00c0 cette \u00e9poque, la recherche en psychologie sociale et exp\u00e9rimentale conna\u00eet un essor sans pr\u00e9c\u00e9dent dans l&rsquo;utilisation de protocoles longitudinaux mesurant les changements d&rsquo;attitude, l&rsquo;impact des campagnes de propagande durant la Seconde Guerre mondiale ou encore les effets d&rsquo;apprentissages \u00e9ducatifs cibl\u00e9s.<\/p>\n<p>Face \u00e0 ces donn\u00e9es empiriques r\u00e9p\u00e9t\u00e9es, les chercheurs de l&rsquo;\u00e9poque commettaient quasi syst\u00e9matiquement l&rsquo;erreur de traiter les mesures avant et apr\u00e8s intervention comme si elles provenaient de deux cohortes ind\u00e9pendantes. Ils mobilisaient alors le test d&rsquo;ind\u00e9pendance du chi-carr\u00e9 formul\u00e9 par Karl Pearson en 1900 ou le test z de comparaison de deux pourcentages ind\u00e9pendants. McNemar prit conscience que cette mod\u00e9lisation ignorait la d\u00e9pendance stochastique induite par le suivi des m\u00eames unit\u00e9s statistiques \u00e0 travers le temps. La contribution pionni\u00e8re de McNemar a consist\u00e9 \u00e0 d\u00e9montrer que l&rsquo;\u00e9valuation du changement marginal ne requiert pas une comparaison globale des distributions, mais une focalisation exclusive sur la dynamique interne des transitions d&rsquo;\u00e9tats psychologiques.<\/p>\n<p>Dans les paradigmes contemporains en sciences comportementales, le test de McNemar demeure l&rsquo;outil pivot pour les plans d&rsquo;exp\u00e9rience \u00e0 mesures r\u00e9p\u00e9t\u00e9es \u00e0 deux temps de mesure (pr\u00e9-test et post-test) ainsi que pour les \u00e9tudes cas-t\u00e9moins appari\u00e9es en \u00e9pid\u00e9miologie psychiatrique. En fournissant une solution exacte \u00e0 la prise en compte de la corr\u00e9lation intra-individuelle, les travaux de McNemar ont pos\u00e9 les jalons de l&rsquo;analyse moderne des trajectoires cat\u00e9gorielles, ouvrant la voie au d\u00e9veloppement ult\u00e9rieur des mod\u00e8les mixtes g\u00e9n\u00e9ralis\u00e9s et des \u00e9quations d&rsquo;estimation g\u00e9n\u00e9ralis\u00e9es.<\/p>\n<h3>1.2 Distinction fondamentale entre \u00e9chantillons ind\u00e9pendants et d\u00e9pendants<\/h3>\n<p>La distinction entre \u00e9chantillons ind\u00e9pendants et d\u00e9pendants constitue l&rsquo;un des piliers de l&rsquo;inf\u00e9rence statistique, dont la m\u00e9connaissance engendre des erreurs d&rsquo;interpr\u00e9tation critiques dans la litt\u00e9rature scientifique. Deux \u00e9chantillons sont consid\u00e9r\u00e9s comme ind\u00e9pendants lorsque la s\u00e9lection et la valeur prise par une unit\u00e9 d&rsquo;observation n&rsquo;exercent aucune influence pr\u00e9dictive sur les unit\u00e9s du second groupe. C&rsquo;est le cas embl\u00e9matique d&rsquo;un essai randomis\u00e9 contr\u00f4l\u00e9 o\u00f9 des participants distincts sont affect\u00e9s de fa\u00e7on al\u00e9atoire soit \u00e0 un groupe exp\u00e9rimental recevant une psychoth\u00e9rapie, soit \u00e0 un groupe t\u00e9moin plac\u00e9 sur liste d&rsquo;attente. Dans une telle situation, la variance de la diff\u00e9rence entre les deux proportions estim\u00e9es correspond strictement \u00e0 la somme de leurs variances d&rsquo;\u00e9chantillonnage respectives.<\/p>\n<p>\u00c0 l&rsquo;inverse, des \u00e9chantillons sont dits d\u00e9pendants, appari\u00e9s ou corr\u00e9l\u00e9s lorsque chaque observation d&rsquo;une condition est intrins\u00e8quement li\u00e9e \u00e0 une observation sp\u00e9cifique de la seconde condition. Cette structure d&rsquo;appariement d\u00e9coule soit d&rsquo;un plan \u00e0 mesures r\u00e9p\u00e9t\u00e9es, o\u00f9 chaque sujet constitue son propre t\u00e9moin \u00e0 travers le temps, soit d&rsquo;un jumelage m\u00e9thodologique strict, o\u00f9 des paires de sujets sont constitu\u00e9es sur la base de covariables confondantes majeures telles que l&rsquo;\u00e2ge, le genre ou le score de quotient intellectuel. Dans cette configuration, l&rsquo;existence d&rsquo;une autocorr\u00e9lation intrasujet positive engendre une covariance non nulle entre les mesures pr\u00e9- et post-intervention, modifiant fondamentalement la structure stochastique du terme d&rsquo;erreur.<\/p>\n<p>L&rsquo;application fautive du test du chi-carr\u00e9 d&rsquo;ind\u00e9pendance de Pearson \u00e0 des donn\u00e9es appari\u00e9es produit des cons\u00e9quences th\u00e9oriques d\u00e9l\u00e9t\u00e8res sur la validit\u00e9 des conclusions. Lorsque la corr\u00e9lation intrasujet est positive, ce qui repr\u00e9sente la norme quasi universelle en psychologie empirique en raison de la stabilit\u00e9 des traits individuels, la variance r\u00e9elle de la diff\u00e9rence de proportions est nettement inf\u00e9rieure \u00e0 la variance pr\u00e9sum\u00e9e sous l&rsquo;hypoth\u00e8se d&rsquo;ind\u00e9pendance. Le test de Pearson surestime alors le terme d&rsquo;erreur standard, ce qui r\u00e9duit artificiellement la valeur de la statistique de test et gonfle de mani\u00e8re inacceptable le taux d&rsquo;erreur de deuxi\u00e8me esp\u00e8ce, privant l&rsquo;exp\u00e9rimentateur de la puissance statistique n\u00e9cessaire pour d\u00e9tecter un changement comportemental authentique. Inversement, si une corr\u00e9lation n\u00e9gative venait \u00e0 \u00e9merger, le risque d&rsquo;erreur de premi\u00e8re esp\u00e8ce serait dramatiquement gonfl\u00e9, conduisant \u00e0 des faux positifs m\u00e9thodologiques.<\/p>\n<h3>1.3 Formulation formelle des hypoth\u00e8ses statistiques<\/h3>\n<p>D&rsquo;un point de vue formel, le test de McNemar \u00e9value l&rsquo;hypoth\u00e8se nulle dite d&rsquo;homog\u00e9n\u00e9it\u00e9 marginale au sein d&rsquo;une population parente dont les observations sont cat\u00e9goris\u00e9es selon une variable binaire \u00e0 deux moments successifs. Soit une table de probabilit\u00e9s conjointes 2&#215;2 o\u00f9 l&rsquo;\u00e9l\u00e9ment th\u00e9orique <span class=\"arabpsy-math-inline\" data-latex=\"p_{ij}\">$p_{ij}$<\/span> repr\u00e9sente la probabilit\u00e9 qu&rsquo;un individu appartienne \u00e0 la cat\u00e9gorie <span class=\"arabpsy-math-inline\" data-latex=\"i\">$i$<\/span> lors du premier temps de mesure (<span class=\"arabpsy-math-inline\" data-latex=\"i in {1, 2}\">$i in {1, 2}$<\/span>) et \u00e0 la cat\u00e9gorie <span class=\"arabpsy-math-inline\" data-latex=\"j\">$j$<\/span> lors du second temps (<span class=\"arabpsy-math-inline\" data-latex=\"j in {1, 2}\">$j in {1, 2}$<\/span>). La marge relative au premier temps est d\u00e9finie par <span class=\"arabpsy-math-inline\" data-latex=\"p_{1.} = p_{11} + p_{12}\">$p_{1.} = p_{11} + p_{12}$<\/span> pour la premi\u00e8re modalit\u00e9 et <span class=\"arabpsy-math-inline\" data-latex=\"p_{2.} = p_{21} + p_{22}\">$p_{2.} = p_{21} + p_{22}$<\/span> pour la seconde. De mani\u00e8re analogue, les marges relatives au second temps de mesure sont formalis\u00e9es par <span class=\"arabpsy-math-inline\" data-latex=\"p_{.1} = p_{11} + p_{21}\">$p_{.1} = p_{11} + p_{21}$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"p_{.2} = p_{12} + p_{22}\">$p_{.2} = p_{12} + p_{22}$<\/span>.<\/p>\n<p>L&rsquo;hypoth\u00e8se nulle d&rsquo;homog\u00e9n\u00e9it\u00e9 marginale stipule que les distributions de probabilit\u00e9s marginales demeurent parfaitement invariantes entre les deux moments d&rsquo;\u00e9valuation. Math\u00e9matiquement, cette proposition s&rsquo;exprime par le syst\u00e8me d&rsquo;\u00e9galit\u00e9s :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"H_0 : p_{1.} = p_{.1} \\quad \\text{et} \\quad p_{2.} = p_{.2}\">$$H_0 : p_{1.} = p_{.1} \\quad \\text{et} \\quad p_{2.} = p_{.2}$$<\/span><\/p>\n<p>En substituant les probabilit\u00e9s conjointes dans la premi\u00e8re \u00e9galit\u00e9, nous obtenons <span class=\"arabpsy-math-inline\" data-latex=\"p_{11} + p_{12} = p_{11} + p_{21}\">$p_{11} + p_{12} = p_{11} + p_{21}$<\/span>. En retranchant le terme diagonal <span class=\"arabpsy-math-inline\" data-latex=\"p_{11}\">$p_{11}$<\/span> des deux membres de l&rsquo;\u00e9quation, l&rsquo;hypoth\u00e8se nulle se r\u00e9duit \u00e0 une condition d&rsquo;une remarquable simplicit\u00e9 et d&rsquo;une puissance analytique singuli\u00e8re :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"H_0 : p_{12} = p_{21}\">$$H_0 : p_{12} = p_{21}$$<\/span><\/p>\n<p>Cette simplification fondamentale d\u00e9montre que tester l&rsquo;homog\u00e9n\u00e9it\u00e9 marginale \u00e9quivaut rigoureusement \u00e0 tester la sym\u00e9trie des seules cellules discordantes de la table de contingence. L&rsquo;hypoth\u00e8se alternative bilat\u00e9rale postule quant \u00e0 elle l&rsquo;existence d&rsquo;une asym\u00e9trie syst\u00e9matique entre les trajectoires de passage :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"H_1 : p_{12} \\neq p_{21}\">$$H_1 : p_{12} \\neq p_{21}$$<\/span><\/p>\n<p>Dans des contextes exp\u00e9rimentaux directionnels pr\u00e9cis, par exemple lorsqu&rsquo;une intervention clinique vise exclusivement \u00e0 faire r\u00e9gresser un sympt\u00f4me sans pouvoir th\u00e9oriquement l&rsquo;induire chez des sujets sains, une hypoth\u00e8se alternative unilat\u00e9rale peut \u00eatre formul\u00e9e sous la forme <span class=\"arabpsy-math-inline\" data-latex=\"H_1 : p_{12} &gt; p_{21}\">$H_1 : p_{12} > p_{21}$<\/span> ou $H_1 : p_{12} < p_{21}<span class=\"arabpsy-math-inline\" data-latex=\". L&#039;\u00e9l\u00e9ment cardinal \u00e0 retenir r\u00e9side dans l&#039;exclusion totale des cellules concordantes (\">$. L&rsquo;\u00e9l\u00e9ment cardinal \u00e0 retenir r\u00e9side dans l&rsquo;exclusion totale des cellules concordantes ($<\/span>p_{11}$ et <span class=\"arabpsy-math-inline\" data-latex=\"p_{22}\">$p_{22}$<\/span>) de la formulation de la statistique d\u00e9cisionnelle, ces derni\u00e8res n&rsquo;apportant aucune information diff\u00e9rentielle quant \u00e0 la direction du changement temporel.<\/p>\n<h2>2. Conditions d&rsquo;application et postulats m\u00e9thodologiques<\/h2>\n<h3>2.1 Nature et \u00e9chelle des variables psychologiques<\/h3>\n<p>La validit\u00e9 des inf\u00e9rences tir\u00e9es du test de McNemar d\u00e9pend du respect de postulats m\u00e9thodologiques relatifs au niveau de mesure des indicateurs psychom\u00e9triques. Le test requiert imp\u00e9rativement une variable d\u00e9pendante de nature cat\u00e9gorielle binaire, c&rsquo;est-\u00e0-dire une variable qualitative ne comportant que deux modalit\u00e9s mutuellement exclusives et conjointement exhaustives. En psychom\u00e9trie et en psychopathologie quantitative, ces \u00e9tats binaires peuvent correspondre \u00e0 la pr\u00e9sence ou l&rsquo;absence d&rsquo;un trouble selon les crit\u00e8res nosographiques du <a rel=\"noopener noreferrer\" href=\"https:\/\/www.psychiatry.org\/psychiatrists\/practice\/dsm\">DSM-5<\/a> (par exemple, R\u00e9mission versus Rechute), au succ\u00e8s ou \u00e0 l&rsquo;\u00e9chec \u00e0 un item d&rsquo;\u00e9valuation cognitive, ou encore \u00e0 l&rsquo;adh\u00e9sion ou au refus face \u00e0 une proposition d&rsquo;attitude sociale (Favorable versus D\u00e9favorable).<\/p>\n<p>Lorsqu&rsquo;une variable continue sous-jacente est dichotomis\u00e9e arbitrairement \u00e0 des fins d&rsquo;analyse cat\u00e9gorielle, le chercheur doit faire preuve d&rsquo;une prudence \u00e9pist\u00e9mologique accrue. Le recours \u00e0 un seuil de coupure clinique standardis\u00e9 b\u00e9n\u00e9ficie d&rsquo;une validit\u00e9 de contenu reconnue dans les bilans diagnostiques, mais la dichotomisation artificielle d&rsquo;\u00e9chelles d&rsquo;intervalles psychologiques (comme le fractionnement selon la m\u00e9diane d&rsquo;un score d&rsquo;anxi\u00e9t\u00e9) engendre une perte de sensibilit\u00e9 statistique et peut masquer des variations dimensionnelles subtiles. Le postulat fondamental r\u00e9side ici dans la pertinence \u00e9cologique de la classification binaire retenue pour d\u00e9crire le fonctionnement psychologique de l&rsquo;individu.<\/p>\n<p>Par ailleurs, l&rsquo;appariement des unit\u00e9s d&rsquo;observation doit r\u00e9pondre \u00e0 une rigueur d&rsquo;assignation irr\u00e9prochable. Dans un plan intra-individuel \u00e0 mesures r\u00e9p\u00e9t\u00e9es, l&rsquo;int\u00e9grit\u00e9 de l&rsquo;appariement repose sur l&rsquo;identification non ambigu\u00eb de chaque sujet \u00e0 travers les vagues d&rsquo;\u00e9valuation successives. Dans un plan de jumelage inter-individuel (appariement cas-t\u00e9moins), l&rsquo;\u00e9quivalence des paires sur les facteurs d&rsquo;ajustement doit \u00eatre totale. Toute rupture dans le suivi d&rsquo;un membre de la paire compromet la structure dyadique et exige des proc\u00e9dures de traitement sp\u00e9cifiques afin d&rsquo;\u00e9viter d&rsquo;introduire des biais d&rsquo;attrition diff\u00e9rentielle au sein de l&rsquo;\u00e9chantillon analys\u00e9.<\/p>\n<h3>2.2 Exigences relatives aux effectifs et cellules discordantes<\/h3>\n<p>\u00c0 l&rsquo;instar de l&rsquo;ensemble des proc\u00e9dures d&rsquo;inf\u00e9rence fond\u00e9es sur des approximations asymptotiques vers la loi du chi-carr\u00e9, le test standard de McNemar repose sur le th\u00e9or\u00e8me central limite et exige un volume d&rsquo;observations suffisant. Toutefois, une confusion fr\u00e9quente dans la pratique de recherche consiste \u00e0 juger de la validit\u00e9 du test sur la base de la taille totale de l&rsquo;\u00e9chantillon <span class=\"arabpsy-math-inline\" data-latex=\"N\">$N$<\/span>. En r\u00e9alit\u00e9, la puissance du test et la conformit\u00e9 de l&rsquo;approximation distributionnelle ne d\u00e9pendent aucunement de <span class=\"arabpsy-math-inline\" data-latex=\"N\">$N$<\/span>, mais uniquement de la somme des effectifs observ\u00e9s dans les cases discordantes du tableau crois\u00e9, commun\u00e9ment d\u00e9sign\u00e9es par les lettres <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>.<\/p>\n<p>Une r\u00e8gle empirique robuste, pr\u00e9conis\u00e9e dans les manuels de r\u00e9f\u00e9rence en statistique non param\u00e9trique, stipule que l&rsquo;approximation asymptotique par la loi du chi-carr\u00e9 \u00e0 un degr\u00e9 de libert\u00e9 n&rsquo;est statistiquement acceptable que si la somme des effectifs discordants satisfait la condition minimale suivante :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"b + c ge 25\">$$b + c ge 25$$<\/span><\/p>\n<p>Lorsque cette somme est inf\u00e9rieure \u00e0 25, la distribution d&rsquo;\u00e9chantillonnage de la statistique de McNemar s&rsquo;\u00e9carte substantiellement de la distribution th\u00e9orique continue du chi-carr\u00e9. La discr\u00e9tion intrins\u00e8que de l&rsquo;espace d&rsquo;\u00e9chantillonnage engendre alors des fluctuations majeures de la probabilit\u00e9 critique calcul\u00e9e, augmentant le risque d&rsquo;erreurs d&rsquo;inf\u00e9rence. Si cette somme chute en de\u00e7\u00e0 de 10, l&rsquo;approximation devient erratique et peut induire des distorsions massives des seuils de significativit\u00e9 r\u00e9els.<\/p>\n<p>Face \u00e0 des cellules discordantes de faible effectif, le chercheur doit renoncer au test asymptotique classique au profit du test exact de McNemar, lequel repose directement sur la loi binomiale cumulative. Ce choix m\u00e9thodologique garantit le contr\u00f4le strict du risque de premi\u00e8re esp\u00e8ce quel que soit l&rsquo;effectif disponible. L&rsquo;arbitrage entre l&rsquo;approche asymptotique standard, l&rsquo;application d&rsquo;une correction de continuit\u00e9 et la mod\u00e9lisation binomiale exacte constitue un enjeu m\u00e9thodologique qui sera examin\u00e9 de mani\u00e8re approfondie dans les sections ult\u00e9rieures de ce manuel.<\/p>\n<h3>2.3 Structure matricielle d&rsquo;une table de contingence 2&#215;2<\/h3>\n<p>L&rsquo;analyse d&rsquo;un protocole appari\u00e9 binaire n\u00e9cessite la structuration des donn\u00e9es au sein d&rsquo;une table de contingence carr\u00e9e de dimension 2&#215;2. Cette matrice croise les modalit\u00e9s de la variable d&rsquo;int\u00e9r\u00eat observ\u00e9es au premier temps de mesure (en lignes) avec celles observ\u00e9es au second temps de mesure (en colonnes). La formalisation standard des effectifs conjoints observ\u00e9s s&rsquo;\u00e9tablit selon la typologie canonique suivante :<\/p>\n<ul>\n<li><strong>Cellule <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"n_{11}\">$n_{11}$<\/span>) :<\/strong> Sujets pr\u00e9sentant la premi\u00e8re modalit\u00e9 au temps 1 et conservant cette m\u00eame modalit\u00e9 au temps 2 (paire concordante positive).<\/li>\n<li><strong>Cellule <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"n_{12}\">$n_{12}$<\/span>) :<\/strong> Sujets pr\u00e9sentant la premi\u00e8re modalit\u00e9 au temps 1 et basculant vers la seconde modalit\u00e9 au temps 2 (paire discordante de transition).<\/li>\n<li><strong>Cellule <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"n_{21}\">$n_{21}$<\/span>) :<\/strong> Sujets pr\u00e9sentant la seconde modalit\u00e9 au temps 1 et basculant vers la premi\u00e8re modalit\u00e9 au temps 2 (paire discordante de transition inverse).<\/li>\n<li><strong>Cellule <span class=\"arabpsy-math-inline\" data-latex=\"d\">$d$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"n_{22}\">$n_{22}$<\/span>) :<\/strong> Sujets pr\u00e9sentant la seconde modalit\u00e9 au temps 1 et conservant cette m\u00eame modalit\u00e9 au temps 2 (paire concordante n\u00e9gative).<\/li>\n<\/ul>\n<p>La somme totale des unit\u00e9s statistiques analys\u00e9es correspond \u00e0 l&rsquo;\u00e9quation <span class=\"arabpsy-math-inline\" data-latex=\"N = a + b + c + d\">$N = a + b + c + d$<\/span>. Au sein de cette architecture matricielle, les cellules diagonales (<span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"d\">$d$<\/span>) incarnent la stabilit\u00e9 comportementale ou nosographique des participants \u00e0 travers le temps. Bien que ces effectifs concordants fournissent une indication pr\u00e9cieuse sur la fid\u00e9lit\u00e9 test-retest ou sur la persistance temporelle du ph\u00e9nom\u00e8ne psychologique \u00e9tudi\u00e9, ils s&rsquo;annulent alg\u00e9briquement lors du calcul de la statistique de McNemar.<\/p>\n<p>La m\u00e9canique inf\u00e9rentielle repose exclusivement sur les cellules non diagonales (<span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>). Ces deux cases capturent l&rsquo;int\u00e9gralit\u00e9 des dynamiques de conversion comportementale induites par le temps, la maturation ou l&rsquo;intervention th\u00e9rapeutique. Si les forces de transition s&rsquo;\u00e9quilibrent parfaitement au sein de la population parente, les fluctuations observ\u00e9es entre <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span> ne traduisent que des al\u00e9as d&rsquo;\u00e9chantillonnage autour d&rsquo;une proportion th\u00e9orique d&rsquo;\u00e9quiprobabilit\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"p = 0.5\">$p = 0.5$<\/span>). Le r\u00f4le nul des paires concordantes dans la statistique finale souligne la nature \u00e9minemment intra-individuelle du test, focalis\u00e9 sur la seule dissym\u00e9trie des trajectoires de mutation.<\/p>\n<h2>3. Configuration de l&rsquo;environnement R et importation des donn\u00e9es<\/h2>\n<h3>3.1 Installation et chargement des biblioth\u00e8ques sp\u00e9cialis\u00e9es<\/h3>\n<p>Le traitement des donn\u00e9es appari\u00e9es sous l&rsquo;environnement statistique R repose sur un \u00e9cosyst\u00e8me modulaire combinant des fonctionnalit\u00e9s natives hautement optimis\u00e9es et des packages sp\u00e9cialis\u00e9s issus du d\u00e9p\u00f4t officiel <a rel=\"noopener noreferrer\" href=\"https:\/\/cran.r-project.org\/\">CRAN<\/a>. La fonction de base permettant de r\u00e9aliser le test de McNemar se nomme <code>mcnemar.test()<\/code> et fait partie int\u00e9grante du package <code>stats<\/code>, pr\u00e9charg\u00e9 \u00e0 chaque initialisation de session R. N\u00e9anmoins, pour mener des investigations biostatistiques approfondies incluant le calcul d&rsquo;intervalles de confiance exacts, l&rsquo;estimation des rapports de cotes appari\u00e9s et l&rsquo;analyse de sym\u00e9trie multivari\u00e9e, le recours \u00e0 des biblioth\u00e8ques tierces s&rsquo;av\u00e8re indispensable.<\/p>\n<p>Pour installer l&rsquo;ensemble des biblioth\u00e8ques requises pour une analyse compl\u00e8te et rigoureuse, l&rsquo;analyste ex\u00e9cute les commandes d&rsquo;installation standard :<\/p>\n<p><code>install.packages(c(\"exact2x2\", \"rcompanion\", \"epitools\", \"vcd\", \"coin\", \"tidyr\", \"dplyr\", \"ggplot2\", \"ggalluvial\"))<\/code><\/p>\n<p>Le chargement s\u00e9quentiel de ces modules au sein de l&rsquo;environnement de travail s&rsquo;effectue au d\u00e9but du script d&rsquo;analyse, assurant ainsi la reproductibilit\u00e9 compl\u00e8te des proc\u00e9dures computationnelles :<\/p>\n<p><code>library(stats)<\/code><br \/>\n<code>library(exact2x2)<\/code><br \/>\n<code>library(rcompanion)<\/code><br \/>\n<code>library(epitools)<\/code><br \/>\n<code>library(vcd)<\/code><br \/>\n<code>library(coin)<\/code><br \/>\n<code>library(tidyr)<\/code><br \/>\n<code>library(dplyr)<\/code><br \/>\n<code>library(ggplot2)<\/code><br \/>\n<code>library(ggalluvial)<\/code><\/p>\n<p>Dans une perspective de science ouverte et de reproductibilit\u00e9 empirique, il est recommand\u00e9 de documenter syst\u00e9matiquement la version de l&rsquo;interpr\u00e9teur R ainsi que l&rsquo;\u00e9tat pr\u00e9cis des packages mobilis\u00e9s au moyen de la commande <code>sessionInfo()<\/code>. Cette pratique pr\u00e9vient d&rsquo;\u00e9ventuelles discordances de r\u00e9sultats cons\u00e9cutives \u00e0 des refontes d&rsquo;algorithmes internes dans les versions futures des biblioth\u00e8ques contributives.<\/p>\n<h3>3.2 Formatage des donn\u00e9es : format long versus format large<\/h3>\n<p>L&rsquo;organisation structurelle des donn\u00e9es recueillies au sein d&rsquo;un protocole longitudinal d\u00e9termine directement les fonctions de manipulation mobilisables sous R. Deux formats coexistent dans la pratique m\u00e9thodologique : le format large (<em>wide format<\/em>) et le format long (<em>long format<\/em> ou <em>tidy data<\/em>). La ma\u00eetrise du passage de l&rsquo;un \u00e0 l&rsquo;autre constitue une comp\u00e9tence technique essentielle pour l&rsquo;analyste quantitatif.<\/p>\n<p>Dans le format large, chaque ligne du tableau de donn\u00e9es correspond \u00e0 une unit\u00e9 statistique unique (par exemple, un participant unique identifi\u00e9 par son identifiant <code>ID<\/code>). Les mesures r\u00e9p\u00e9t\u00e9es de la variable cat\u00e9gorielle binaire sont dispos\u00e9es dans des colonnes distinctes, typiquement d\u00e9sign\u00e9es par <code>Pre_Intervention<\/code> et <code>Post_Intervention<\/code>. Ce format s&rsquo;av\u00e8re particuli\u00e8rement intuitif pour l&rsquo;extraction imm\u00e9diate de la table de contingence matricielle au moyen de la fonction native <code>table()<\/code>.<\/p>\n<p>\u00c0 l&rsquo;inverse, le format long structure les donn\u00e9es de sorte que chaque ligne corresponde \u00e0 un \u00e9v\u00e9nement d&rsquo;observation unique. Un m\u00eame sujet est donc repr\u00e9sent\u00e9 sur plusieurs lignes successives (deux lignes pour un plan pr\u00e9\/post standard), une variable indicatrice pr\u00e9cisant le moment de la mesure (par exemple <code>Temps<\/code> prenant les valeurs \u00ab T1 \u00bb et \u00ab T2 \u00bb) tandis qu&rsquo;une colonne unique recueille la modalit\u00e9 observ\u00e9e (<code>Etat<\/code>). Ce format est requis pour les mod\u00e9lisations longitudinales avanc\u00e9es telles que la r\u00e9gression logistique mixte ou les mod\u00e8les d&rsquo;\u00e9quations d&rsquo;estimation g\u00e9n\u00e9ralis\u00e9es (GEE).<\/p>\n<p>Le basculement dynamique entre ces deux repr\u00e9sentations s&rsquo;op\u00e8re avec une \u00e9l\u00e9gance syntaxique remarquable gr\u00e2ce au package <code>tidyr<\/code>. La conversion d&rsquo;un tableau large <code>donnees_large<\/code> vers un format long s&rsquo;ex\u00e9cute via la fonction <code>pivot_longer()<\/code> :<\/p>\n<p><code>donnees_long &lt;- donnees_large %&gt;%<\/code><br \/>\n<code>&nbsp;&nbsp;pivot_longer(cols = c(Pre_Intervention, Post_Intervention),<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;names_to = \"Temps\",<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;values_to = \"Diagnostic\")<\/code><\/p>\n<p>R\u00e9ciproquement, la reconstruction de la matrice large \u00e0 partir de donn\u00e9es longitudinales \u00e9tir\u00e9es fait appel \u00e0 la fonction r\u00e9ciproque <code>pivot_wider()<\/code>, garantissant une flexibilit\u00e9 absolue dans les flux de pr\u00e9traitement computationnel.<\/p>\n<h3>3.3 Nettoyage et validation de l&rsquo;int\u00e9grit\u00e9 des vecteurs<\/h3>\n<p>Pr\u00e9alablement \u00e0 toute d\u00e9marche inf\u00e9rentielle, une validation rigoureuse de l&rsquo;int\u00e9grit\u00e9 des vecteurs de donn\u00e9es doit \u00eatre op\u00e9r\u00e9e. L&rsquo;un des risques m\u00e9thodologiques majeurs dans l&rsquo;analyse de donn\u00e9es appari\u00e9es r\u00e9side dans la d\u00e9synchronisation des paires de mesures, induite par un tri accidentel d&rsquo;une colonne ind\u00e9pendamment de l&rsquo;autre, ou par la pr\u00e9sence asym\u00e9trique de donn\u00e9es manquantes (<em>missing values<\/em>).<\/p>\n<p>Le test de McNemar exigeant des paires compl\u00e8tes, la perte d&rsquo;une observation \u00e0 un temps donn\u00e9 entra\u00eene n\u00e9cessairement l&rsquo;exclusion de l&rsquo;observation correspondante pour le m\u00eame sujet lors de la seconde vague. Cette proc\u00e9dure de suppression par liste appari\u00e9e (<em>listwise deletion<\/em>) doit \u00eatre explicit\u00e9e et quantifi\u00e9e afin d&rsquo;en \u00e9valuer le potentiel biais d&rsquo;attrition. Sous R, la filtration des observations non renseign\u00e9es s&rsquo;effectue couramment au moyen de la commande suivante :<\/p>\n<p><code>donnees_propres &lt;- donnees_large[complete.cases(donnees_large<span class=\"arabpsy-math-inline\" data-latex=\"Pre_Intervention, donnees_large\">$Pre_Intervention, donnees_large$<\/span>Post_Intervention), ]<\/code><\/p>\n<p>Par ailleurs, les variables cat\u00e9gorielles doivent imp\u00e9rativement \u00eatre converties au format <code>factor<\/code> en veillant \u00e0 harmoniser rigoureusement l&rsquo;ordre et l&rsquo;\u00e9tiquetage des modalit\u00e9s entre les deux colonnes d&rsquo;observation. Si une modalit\u00e9 th\u00e9orique possible n&rsquo;est observ\u00e9e \u00e0 aucun des temps de mesure chez un sous-groupe, l&rsquo;omission de fixer explicitement les niveaux via l&rsquo;argument <code>levels<\/code> peut g\u00e9n\u00e9rer des matrices non conformes de dimension 1&#215;2 ou 2&#215;1, provoquant le blocage imm\u00e9diat des routines d&rsquo;inf\u00e9rence. Le param\u00e9trage pr\u00e9ventif s&rsquo;\u00e9tablit selon la syntaxe :<\/p>\n<p><code>donnees_propres<span class=\"arabpsy-math-inline\" data-latex=\"Pre_Intervention &lt;- factor(donnees_propres\">$Pre_Intervention &lt;- factor(donnees_propres$<\/span>Pre_Intervention, levels = c(\"Negatif\", \"Positif\"))<\/code><br \/>\n<code>donnees_propres<span class=\"arabpsy-math-inline\" data-latex=\"Post_Intervention &lt;- factor(donnees_propres\">$Post_Intervention &lt;- factor(donnees_propres$<\/span>Post_Intervention, levels = c(\"Negatif\", \"Positif\"))<\/code><\/p>\n<p>Ce verrouillage structurel des niveaux de facteurs assure une orientation dimensionnelle d\u00e9terministe lors de la g\u00e9n\u00e9ration subs\u00e9quente des tableaux de contingence crois\u00e9s.<\/p>\n<h2>4. Construction manuelle et manipulation de la table de contingence sous R<\/h2>\n<h3>4.1 Cr\u00e9ation directe d&rsquo;une matrice 2&#215;2 sous R<\/h3>\n<p>Dans de nombreuses situations professionnelles, l&rsquo;analyste ne dispose pas du fichier de microdonn\u00e9es individuelles brutes, mais uniquement du tableau de contingence synth\u00e9tique publi\u00e9 dans un rapport d&rsquo;\u00e9valuation ou un article scientifique. Dans ce cas de figure, l&rsquo;environnement R permet l&rsquo;instanciation directe d&rsquo;une structure matricielle bidimensionnelle par le biais de la fonction native <code>matrix()<\/code>.<\/p>\n<p>La construction matricielle exige une vigilance quant \u00e0 l&rsquo;ordre de remplissage s\u00e9quentiel des \u00e9l\u00e9ments vectoriels. Par d\u00e9faut, la fonction <code>matrix()<\/code> popule les cellules par colonne (argument implicite <code>byrow = FALSE<\/code>). Consid\u00e9rons un protocole exp\u00e9rimental fictif \u00e9valuant l&rsquo;efficacit\u00e9 d&rsquo;une th\u00e9rapie d&rsquo;exposition sur des phobies sp\u00e9cifiques, o\u00f9 l&rsquo;on observe 40 sujets stables en \u00e9tat phobique (<span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>), 35 sujets gu\u00e9ris suite \u00e0 la prise en charge (<span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>), 5 sujets sains au d\u00e9part devenus phobiques (<span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>), et 20 sujets demeur\u00e9s sains aux deux temps (<span class=\"arabpsy-math-inline\" data-latex=\"d\">$d$<\/span>). La cr\u00e9ation matricielle s&rsquo;articule comme suit :<\/p>\n<p><code>matrice_phobie &lt;- matrix(c(40, 5, 35, 20), nrow = 2, ncol = 2, byrow = FALSE)<\/code><\/p>\n<p>Afin de rendre la lecture intelligible et d&rsquo;\u00e9viter toute inversion interpr\u00e9tative lors de l&rsquo;ex\u00e9cution du test, l&rsquo;adjonction de m\u00e9tadonn\u00e9es s\u00e9mantiques via l&rsquo;attribution de noms de dimensions est requise :<\/p>\n<p><code>dimnames(matrice_phobie) &lt;- list(<\/code><br \/>\n<code>&nbsp;&nbsp;\"Pre_Intervention\" = c(\"Phobique\", \"Sain\"),<\/code><br \/>\n<code>&nbsp;&nbsp;\"Post_Intervention\" = c(\"Phobique\", \"Sain\")<\/code><br \/>\n<code>)<\/code><\/p>\n<p>L&rsquo;affichage de <code>matrice_phobie<\/code> dans la console R r\u00e9v\u00e8le une structure parfaitement balis\u00e9e, pr\u00eate pour les \u00e9tapes ult\u00e9rieures d&rsquo;inf\u00e9rence computationnelle.<\/p>\n<h3>4.2 G\u00e9n\u00e9ration de la table \u00e0 partir d&rsquo;un data frame brut<\/h3>\n<p>Lorsque les donn\u00e9es individuelles sont disponibles au sein d&rsquo;un data frame structur\u00e9 en format large, la d\u00e9rivation de la table de contingence repose sur l&rsquo;utilisation combin\u00e9e des fonctions <code>table()<\/code> ou <code>xtabs()<\/code>. La fonction <code>table()<\/code> effectue un comptage crois\u00e9 exhaustif en recevant en arguments les deux vecteurs de facteurs pr\u00e9alablement harmonis\u00e9s :<\/p>\n<p><code>table_contingence &lt;- table(donnees_propres<span class=\"arabpsy-math-inline\" data-latex=\"Pre_Intervention, donnees_propres\">$Pre_Intervention, donnees_propres$<\/span>Post_Intervention)<\/code><\/p>\n<p>L&rsquo;alternative syntaxique offerte par <code>xtabs()<\/code> s&rsquo;appuie sur le formalisme des formules math\u00e9matiques standard de R, particuli\u00e8rement pris\u00e9 pour son expressivit\u00e9 et son int\u00e9gration naturelle au sein de pipelines de traitement :<\/p>\n<p><code>table_contingence &lt;- xtabs(~ Pre_Intervention + Post_Intervention, data = donnees_propres)<\/code><\/p>\n<p>Il importe de contr\u00f4ler syst\u00e9matiquement l&rsquo;orientation spatiale de la matrice g\u00e9n\u00e9r\u00e9e. Par convention statistique universelle, la premi\u00e8re variable sp\u00e9cifi\u00e9e dans la formule ou dans l&rsquo;appel de fonction est allou\u00e9e aux lignes du tableau (repr\u00e9sentant le temps 1 ou la condition initiale), tandis que la seconde variable est attribu\u00e9e aux colonnes (figurant le temps 2 ou la condition cons\u00e9cutive). Une inversion non ma\u00eetris\u00e9e de cet agencement transforme la cellule de conversion ascendante (<span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>) en cellule descendante (<span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>), ce qui, sans alt\u00e9rer la statistique globale d&rsquo;un test bilat\u00e9ral, inverserait radicalement l&rsquo;interpr\u00e9tation clinique du sens de l&rsquo;efficacit\u00e9 th\u00e9rapeutique lors du calcul d&rsquo;indices directionnels comme le rapport de cotes appari\u00e9.<\/p>\n<h3>4.3 Calcul des proportions marginales et conditionnelles<\/h3>\n<p>L&rsquo;inspection exclusive des fr\u00e9quences brutes absolues d&rsquo;une table de contingence s&rsquo;av\u00e8re insuffisante pour appr\u00e9hender l&rsquo;amplitude concr\u00e8te des ph\u00e9nom\u00e8nes psychologiques \u00e9tudi\u00e9s. L&rsquo;analyste doit proc\u00e9der au calcul des totaux marginaux et \u00e0 leur transformation en proportions relatives afin de caract\u00e9riser avec clart\u00e9 les taux d&rsquo;incidence marginale.<\/p>\n<p>Le calcul des marges d&rsquo;une table bidimensionnelle est assur\u00e9 sous R par la commande <code>margin.table()<\/code>, o\u00f9 l&rsquo;indice directionnel <code>1<\/code> extrait la distribution marginale des lignes (temps 1) et l&rsquo;indice <code>2<\/code> celle des colonnes (temps 2) :<\/p>\n<p><code>marge_pre &lt;- margin.table(table_contingence, margin = 1)<\/code><br \/>\n<code>marge_post &lt;- margin.table(table_contingence, margin = 2)<\/code><\/p>\n<p>Pour convertir ces effectifs absolus en pourcentages ou proportions relatives globales, la fonction <code>prop.table()<\/code> constitue le standard analytique :<\/p>\n<p><code>proportions_globales &lt;- prop.table(table_contingence)<\/code><br \/>\n<code>proportions_lignes &lt;- prop.table(table_contingence, margin = 1)<\/code><\/p>\n<p>La matrice issue de <code>proportions_lignes<\/code> fournit les probabilit\u00e9s de transition conditionnelles. Dans notre exemple clinique, elle permet de d\u00e9terminer imm\u00e9diatement la proportion d&rsquo;individus initialement phobiques ayant acc\u00e9d\u00e9 \u00e0 la r\u00e9mission au terme de l&rsquo;intervention, comparativement au taux de d\u00e9gradation observ\u00e9 chez les sujets initialement sains. Cette lecture d\u00e9sagr\u00e9g\u00e9e \u00e9claire la clinique du changement comportemental, conf\u00e9rant une \u00e9paisseur th\u00e9orique indispensable aux tests d&rsquo;hypoth\u00e8ses subs\u00e9quents.<\/p>\n<h2>5. Ex\u00e9cution du test standard de McNemar avec la fonction mcnemar.test()<\/h2>\n<h3>5.1 Syntaxe de base et options de la fonction native<\/h3>\n<p>L&rsquo;ex\u00e9cution computationnelle du test d&rsquo;homog\u00e9n\u00e9it\u00e9 marginale s&rsquo;effectue dans l&rsquo;environnement R au moyen de la fonction native <code>mcnemar.test()<\/code> appartenant au package <code>stats<\/code>. Cette routine b\u00e9n\u00e9ficie d&rsquo;une conception polymorphique permettant de traiter soit directement une table de contingence matricielle 2&#215;2 pr\u00e9construite, soit deux vecteurs de facteurs binaires de m\u00eame longueur pass\u00e9s comme arguments distincts.<\/p>\n<p>La signature formelle de la fonction se structure de la mani\u00e8re suivante :<\/p>\n<p><code>mcnemar.test(x, y = NULL, correct = TRUE)<\/code><\/p>\n<p>Lorsque le premier argument <code>x<\/code> est une matrice ou une table 2&#215;2, l&rsquo;argument <code>y<\/code> doit \u00eatre laiss\u00e9 \u00e0 sa valeur par d\u00e9faut <code>NULL<\/code>. Dans l&rsquo;\u00e9ventualit\u00e9 o\u00f9 <code>x<\/code> et <code>y<\/code> sont fournis sous forme de vecteurs d&rsquo;observations individuelles brutes, la fonction proc\u00e8de d&rsquo;abord en interne \u00e0 la construction automatique de la table de contingence crois\u00e9e avant d&rsquo;op\u00e9rer le calcul inf\u00e9rentiel. L&rsquo;argument bool\u00e9en <code>correct<\/code> r\u00e9git quant \u00e0 lui l&rsquo;application ou l&rsquo;omission de la correction de continuit\u00e9 de Frank Yates, dont le comportement par d\u00e9faut est fix\u00e9 \u00e0 <code>TRUE<\/code>.<\/p>\n<p>L&rsquo;appel de cette fonction produit un objet statistique de classe formelle <code>htest<\/code>, contenant des m\u00e9tadonn\u00e9es d\u00e9taill\u00e9es qu&rsquo;il est ais\u00e9 d&rsquo;assigner \u00e0 une variable d&rsquo;enregistrement :<\/p>\n<p><code>resultat_mcnemar &lt;- mcnemar.test(table_contingence)<\/code><\/p>\n<p>L&rsquo;interrogation de l&rsquo;objet <code>resultat_mcnemar<\/code> r\u00e9v\u00e8le ses composantes internes via l&rsquo;op\u00e9rateur d&rsquo;extraction <code>$<\/code> : <code>statistic<\/code> (la valeur num\u00e9rique du chi-carr\u00e9 observ\u00e9), <code>parameter<\/code> (le degr\u00e9 de libert\u00e9 associ\u00e9, invariablement \u00e9gal \u00e0 1 pour une table 2&#215;2), <code>p.value<\/code> (la probabilit\u00e9 critique bilat\u00e9rale) ainsi que <code>method<\/code> (l&rsquo;intitul\u00e9 de la m\u00e9thode sp\u00e9cifique mise en \u0153uvre).<\/p>\n<h3>5.2 Calcul math\u00e9matique sous-jacent sans correction<\/h3>\n<p>Afin de d\u00e9mystifier les processus de calcul interne de R et de garantir une ma\u00eetrise conceptuelle totale, il convient de d\u00e9composer la formule analytique de la statistique asymptotique du chi-carr\u00e9 de McNemar sans correction de continuit\u00e9. Sous l&rsquo;hypoth\u00e8se nulle d&rsquo;homog\u00e9n\u00e9it\u00e9 marginale (<span class=\"arabpsy-math-inline\" data-latex=\"H_0 : p_{12} = p_{21}\">$H_0 : p_{12} = p_{21}$<\/span>), l&rsquo;esp\u00e9rance math\u00e9matique conditionnelle des effectifs discordants est rigoureusement identique : <span class=\"arabpsy-math-inline\" data-latex=\"E(b) = E(c) = (b + c) \/ 2\">$E(b) = E(c) = (b + c) \/ 2$<\/span>.<\/p>\n<p>En appliquant la formule g\u00e9n\u00e9rale du chi-carr\u00e9 de Pearson aux seules cellules discordantes g\u00e9n\u00e9ratrices de variation, la statistique de test se formalise comme suit :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\chi^2 = \\frac{\\left(b - \\frac{b + c}{2}\\right)^2}{\\frac{b + c}{2}} + \\frac{\\left(c - \\frac{b + c}{2}\\right)^2}{\\frac{b + c}{2}}\">$$\\chi^2 = \\frac{\\left(b &#8211; \\frac{b + c}{2}\\right)^2}{\\frac{b + c}{2}} + \\frac{\\left(c &#8211; \\frac{b + c}{2}\\right)^2}{\\frac{b + c}{2}}$$<\/span><\/p>\n<p>En d\u00e9veloppant et en simplifiant alg\u00e9briquement cette expression, nous aboutissons \u00e0 l&rsquo;\u00e9quation canonique sans correction :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\chi^2 = \\frac{(b - c)^2}{b + c}\">$$\\chi^2 = \\frac{(b &#8211; c)^2}{b + c}$$<\/span><\/p>\n<p>Sous <span class=\"arabpsy-math-inline\" data-latex=\"H_0\">$H_0$<\/span> et lorsque la condition asymptotique est respect\u00e9e, cette statistique d&rsquo;\u00e9chantillonnage suit rigoureusement une distribution th\u00e9orique du chi-carr\u00e9 \u00e0 un degr\u00e9 de libert\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"\\chi^2 \\sim \\chi^2_1\">$\\chi^2 \\sim \\chi^2_1$<\/span>). Il est particuli\u00e8rement formateur de r\u00e9pliquer ce calcul de fa\u00e7on computationnelle manuelle sous la console R sans faire appel au package <code>stats<\/code> :<\/p>\n<p><code>b &lt;- table_contingence[1, 2]<\/code><br \/>\n<code>c &lt;- table_contingence[2, 1]<\/code><br \/>\n<code>chi2_manuel &lt;- (b - c)^2 \/ (b + c)<\/code><br \/>\n<code>pval_manuelle &lt;- pchisq(chi2_manuel, df = 1, lower.tail = FALSE)<\/code><\/p>\n<p>Cette impl\u00e9mentation pas \u00e0 pas met en exergue l&rsquo;extr\u00eame \u00e9l\u00e9gance de la mod\u00e9lisation math\u00e9matique de McNemar, qui r\u00e9duit la complexit\u00e9 d&rsquo;un protocole longitudinal multidimensionnel \u00e0 un ratio simple confrontant la d\u00e9viation nette des conversions \u00e0 la variance totale du sous-syst\u00e8me discordant.<\/p>\n<h3>5.3 D\u00e9sactivation de la correction de continuit\u00e9<\/h3>\n<p>L&rsquo;interpr\u00e9teur R appliquant syst\u00e9matiquement la correction de continuit\u00e9 lors de l&rsquo;ex\u00e9cution par d\u00e9faut de la fonction <code>mcnemar.test()<\/code>, le chercheur d\u00e9sireux d&rsquo;obtenir l&rsquo;estimation asymptotique pure doit expliciter l&rsquo;argument <code>correct = FALSE<\/code> dans son script :<\/p>\n<p><code>mcnemar_pur &lt;- mcnemar.test(table_contingence, correct = FALSE)<\/code><\/p>\n<p>La d\u00e9sactivation d\u00e9lib\u00e9r\u00e9e de cette correction repose sur des consid\u00e9rations \u00e9pist\u00e9miques et statistiques solides. Lorsque le volume global des paires discordantes est massif (par exemple <span class=\"arabpsy-math-inline\" data-latex=\"b + c &gt; 100\">$b + c > 100$<\/span> ou dans les cohortes \u00e9pid\u00e9miologiques incluant des milliers de sujets), la granularit\u00e9 discr\u00e8te de la distribution d&rsquo;\u00e9chantillonnage s&rsquo;estompe pour converger vers la fluidit\u00e9 d&rsquo;un continuum math\u00e9matique. Dans ces contextes \u00e0 haute puissance, le maintien m\u00e9canique de la correction n&rsquo;apporte aucun b\u00e9n\u00e9fice d&rsquo;ajustement distributionnel et introduit un conservatisme num\u00e9rique inutile.<\/p>\n<p>La comparaison syst\u00e9matique des sorties console obtenues avec et sans l&rsquo;argument <code>correct = FALSE<\/code> illustre concr\u00e8tement l&rsquo;impact num\u00e9rique de la correction. La valeur du chi-carr\u00e9 corrig\u00e9 est invariablement inf\u00e9rieure \u00e0 celle du chi-carr\u00e9 brut, ce qui se traduit corr\u00e9lativement par une valeur de probabilit\u00e9 critique (<span class=\"arabpsy-math-inline\" data-latex=\"p\">$p$<\/span>-valeur) l\u00e9g\u00e8rement sup\u00e9rieure. La rigueur documentaire impose \u00e0 tout chercheur publiant ses travaux de sp\u00e9cifier explicitement dans sa m\u00e9thodologie statistique si l&rsquo;inf\u00e9rence a \u00e9t\u00e9 men\u00e9e avec ou sans ajustement de continuit\u00e9, garantissant ainsi l&rsquo;exacte reproductibilit\u00e9 de ses coefficients rapport\u00e9s.<\/p>\n<h2>6. La correction de continuit\u00e9 de Yates : justification et impl\u00e9mentation<\/h2>\n<h3>6.1 Fondement statistique de la correction de continuit\u00e9<\/h3>\n<p>La justification th\u00e9orique de la correction de continuit\u00e9, introduite par le biostatisticien britannique Frank Yates en 1934 pour les tables 2&#215;2 ind\u00e9pendantes puis transpos\u00e9e aux plans appari\u00e9s, d\u00e9coule d&rsquo;une incongruit\u00e9 g\u00e9om\u00e9trique fondamentale entre la nature des variables observ\u00e9es et la loi th\u00e9orique mobilis\u00e9e pour l&rsquo;inf\u00e9rence. Les effectifs d&rsquo;une table de contingence sont par essence des grandeurs discr\u00e8tes appartenant \u00e0 l&rsquo;ensemble des entiers naturels, g\u00e9n\u00e9rant une distribution de probabilit\u00e9 sous forme d&rsquo;\u00e9chelons disjoints. \u00c0 l&rsquo;oppos\u00e9, la distribution th\u00e9orique du chi-carr\u00e9 est une fonction math\u00e9matique continue d\u00e9finie sur l&rsquo;ensemble des nombres r\u00e9els positifs.<\/p>\n<p>Lorsque l&rsquo;on calcule une aire sous la courbe continue pour estimer une probabilit\u00e9 discr\u00e8te, une distorsion d&rsquo;approximation appara\u00eet, particuli\u00e8rement marqu\u00e9e au niveau des queues de distribution o\u00f9 les probabilit\u00e9s sont faibles. La correction de continuit\u00e9 vise \u00e0 r\u00e9tablir une meilleure ad\u00e9quation en contractant la distance absolue s\u00e9parant la valeur observ\u00e9e de son esp\u00e9rance th\u00e9orique d&rsquo;un demi-intervalle discret, ce qui \u00e9quivaut \u00e0 retrancher la valeur $1$ du num\u00e9rateur avant d&rsquo;\u00e9lever au carr\u00e9. La formulation analytique corrig\u00e9e s&rsquo;\u00e9nonce ainsi :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\chi^2_{\\text{Yates}} = \\frac{(|b - c| - 1)^2}{b + c}\">$$\\chi^2_{\\text{Yates}} = \\frac{(|b &#8211; c| &#8211; 1)^2}{b + c}$$<\/span><\/p>\n<p>L&rsquo;introduction du terme <span class=\"arabpsy-math-inline\" data-latex=\"-1\">$-1$<\/span> \u00e0 l&rsquo;int\u00e9rieur de la valeur absolue r\u00e9duit syst\u00e9matiquement la grandeur du num\u00e9rateur. Cette p\u00e9nalisation a pour effet direct de comprimer la statistique de test, ce qui d\u00e9cale la distribution vers la gauche et \u00e9l\u00e8ve le seuil de significativit\u00e9 requis pour franchir la valeur critique <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha\">$\\alpha$<\/span>. La correction de continuit\u00e9 agit donc comme un m\u00e9canisme intrins\u00e8quement conservateur, limitant drastiquement les rejets abusifs de l&rsquo;hypoth\u00e8se nulle.<\/p>\n<h3>6.2 Mise en \u0153uvre pratique dans l&rsquo;environnement R<\/h3>\n<p>L&rsquo;ex\u00e9cution de la version corrig\u00e9e sous R requiert la sp\u00e9cification formelle de l&rsquo;argument <code>correct = TRUE<\/code>, bien que cette option corresponde au comportement natif implicite de la fonction <code>mcnemar.test()<\/code> :<\/p>\n<p><code>mcnemar_yates &lt;- mcnemar.test(table_contingence, correct = TRUE)<\/code><\/p>\n<p>L&rsquo;affichage g\u00e9n\u00e9r\u00e9 par la console R modifie son intitul\u00e9 descriptif pour mentionner explicitement \u00ab <em>McNemar&rsquo;s Chi-squared test with continuity correction<\/em> \u00bb. L&rsquo;analyste peut diss\u00e9quer la machinerie algorithmique en v\u00e9rifiant la conformit\u00e9 de l&rsquo;\u00e9quation alg\u00e9brique de Yates par une s\u00e9quence computationnelle manuelle :<\/p>\n<p><code>b &lt;- table_contingence[1, 2]<\/code><br \/>\n<code>c &lt;- table_contingence[2, 1]<\/code><br \/>\n<code>chi2_yates_manuel &lt;- (abs(b - c) - 1)^2 \/ (b + c)<\/code><br \/>\n<code>pval_yates_manuelle &lt;- pchisq(chi2_yates_manuel, df = 1, lower.tail = FALSE)<\/code><\/p>\n<p>Cette manipulation permet de constater la sensibilit\u00e9 num\u00e9rique de l&rsquo;estimation. Si la valeur absolue <span class=\"arabpsy-math-inline\" data-latex=\"|b - c|\">$|b &#8211; c|$<\/span> est relativement petite, la soustraction unitaire exerce une influence proportionnellement plus lourde sur la statistique r\u00e9sultante que si l&rsquo;\u00e9cart \u00e9tait massif. En milieu clinique o\u00f9 les effectifs de transition sont souvent modestes, cette r\u00e9duction de la statistique de test peut fr\u00e9quemment transformer un r\u00e9sultat tendanciellement significatif (<span class=\"arabpsy-math-inline\" data-latex=\"p \\approx 0.04\">$p \\approx 0.04$<\/span>) en un r\u00e9sultat non significatif (<span class=\"arabpsy-math-inline\" data-latex=\"p \\approx 0.06\">$p \\approx 0.06$<\/span>). Cette instabilit\u00e9 aux fronti\u00e8res d\u00e9cisionnelles impose une r\u00e9flexion m\u00e9thodologique approfondie sur l&rsquo;opportunit\u00e9 r\u00e9elle d&rsquo;activer cette option.<\/p>\n<h3>6.3 D\u00e9bats m\u00e9thodologiques contemporains autour de Yates<\/h3>\n<p>L&#8217;emploi syst\u00e9matique de la correction de continuit\u00e9 de Yates fait l&rsquo;objet de vives controverses au sein de la communaut\u00e9 des biostatisticiens et psychom\u00e9triciens contemporains. Si cette correction a longtemps \u00e9t\u00e9 enseign\u00e9e comme une r\u00e8gle canonique incontournable, une litt\u00e9rature m\u00e9thodologique abondante d\u00e9montre que la correction de Yates tend \u00e0 op\u00e9rer une \u00ab sur-correction \u00bb disproportionn\u00e9e de la distribution asymptotique.<\/p>\n<p>En comprimant de mani\u00e8re excessive la statistique de test, la correction de Yates r\u00e9duit le taux d&rsquo;erreur de type I bien en de\u00e7\u00e0 du seuil nominal conventionnel <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha = 0.05\">$\\alpha = 0.05$<\/span>, l&rsquo;abaissant fr\u00e9quemment aux alentours de 0.02 ou 0.03. Ce conservatisme m\u00e9thodologique engendre une cons\u00e9quence f\u00e2cheuse : une perte substantielle de puissance statistique (augmentation de l&rsquo;erreur de type II). Dans des protocoles de recherche en psychologie clinique ou en neurosciences appliqu\u00e9es, o\u00f9 les recrutements de patients sont particuli\u00e8rement laborieux, sacrifier la puissance statistique du dispositif exp\u00e9rimental pour corriger artificiellement une approximation asymptotique est difficilement justifiable.<\/p>\n<p>Le consensus m\u00e9thodologique actuel sugg\u00e8re une directive d&rsquo;arbitrage claire :<\/p>\n<ul>\n<li>Si le nombre total de cellules discordantes est grand (<span class=\"arabpsy-math-inline\" data-latex=\"b + c ge 25\">$b + c ge 25$<\/span>), il est pr\u00e9f\u00e9rable d&rsquo;ex\u00e9cuter le test de McNemar <strong>sans correction de continuit\u00e9<\/strong> (<code>correct = FALSE<\/code>), l&rsquo;approximation du chi-carr\u00e9 \u00e9tant parfaitement stable et robuste.<\/li>\n<li>Si le nombre total de cellules discordantes est restreint ($b + c < 25$), il convient de ne pas recourir \u00e0 l'artifice de la correction de Yates, mais d'adopter d'embl\u00e9e une <strong>proc\u00e9dure exacte binomiale<\/strong> (<code>exact2x2<\/code> ou <code>binom.test<\/code>), qui calcule la distribution combinatoire sans recourir \u00e0 une approximation continue.<\/li>\n<\/ul>\n<p>La correction de Yates appara\u00eet ainsi de plus en plus comme un vestige historique de l&rsquo;\u00e8re pr\u00e9-informatique, \u00e9poque o\u00f9 le calcul des factorielles exactes de la loi binomiale s&rsquo;av\u00e9rait hors de port\u00e9e des capacit\u00e9s de calcul manuel des chercheurs.<\/p>\n<h2>7. Traitement des petits \u00e9chantillons : le test exact de McNemar<\/h2>\n<h3>7.1 Limites de l&rsquo;approximation asymptotique<\/h3>\n<p>Lorsque la taille effective des effectifs discordants s&rsquo;effondre en de\u00e7\u00e0 du seuil critique ($b + c < 25<span class=\"arabpsy-math-inline\" data-latex=\"), les distributions th\u00e9oriques continues du chi-carr\u00e9 se r\u00e9v\u00e8lent inaptes \u00e0 mod\u00e9liser la structure stochastique r\u00e9elle de l&#039;\u00e9chantillonnage. Dans de nombreux domaines de la recherche clinique de pointe, comme les essais th\u00e9rapeutiques pilotes en psychiatrie portant sur des pathologies rares ou les \u00e9tudes d&#039;intervention neurochirurgicale hautement invasives, des tailles d&#039;\u00e9chantillons totales restreintes (\">$), les distributions th\u00e9oriques continues du chi-carr\u00e9 se r\u00e9v\u00e8lent inaptes \u00e0 mod\u00e9liser la structure stochastique r\u00e9elle de l&rsquo;\u00e9chantillonnage. Dans de nombreux domaines de la recherche clinique de pointe, comme les essais th\u00e9rapeutiques pilotes en psychiatrie portant sur des pathologies rares ou les \u00e9tudes d&rsquo;intervention neurochirurgicale hautement invasives, des tailles d&rsquo;\u00e9chantillons totales restreintes ($<\/span>N < 30$) sont courantes, conduisant in\u00e9luctablement \u00e0 un nombre infime de transitions discordantes.<\/p>\n<p>Sous de telles contraintes, invoquer l&rsquo;approximation asymptotique revient \u00e0 postuler une fluidit\u00e9 distributionnelle l\u00e0 o\u00f9 seules quelques valeurs discr\u00e8tes de chi-carr\u00e9 sont arithm\u00e9tiquement r\u00e9alisables. Les probabilit\u00e9s critiques calcul\u00e9es par l&rsquo;interm\u00e9diaire de <code>pchisq()<\/code> perdent alors toute fid\u00e9lit\u00e9 biom\u00e9trique. Le risque d&rsquo;induire le clinicien en erreur quant \u00e0 l&rsquo;efficacit\u00e9 d&rsquo;un protocole innovant devient substantiel.<\/p>\n<p>La r\u00e9solution de cette d\u00e9faillance repose sur une r\u00e9\u00e9valuation probabiliste du probl\u00e8me d&rsquo;inf\u00e9rence. En conditionnant l&rsquo;analyse statistique sur le nombre total de paires ayant d\u00e9montr\u00e9 un changement effectif (<span class=\"arabpsy-math-inline\" data-latex=\"n^* = b + c\">$n^* = b + c$<\/span>), la distribution d&rsquo;\u00e9chantillonnage du nombre de transitions observ\u00e9es dans un sens donn\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>) se r\u00e9duit formellement \u00e0 une variable al\u00e9atoire binomiale univari\u00e9e. L&rsquo;inf\u00e9rence ne d\u00e9pend plus alors d&rsquo;un cadre asymptotique artificiel, mais de la combinatoire math\u00e9matique discr\u00e8te exacte.<\/p>\n<h3>7.2 Ex\u00e9cution via le test binomial natif binom.test()<\/h3>\n<p>La transposition du test de McNemar en un test exact repose sur une \u00e9l\u00e9gante propri\u00e9t\u00e9 probabiliste formul\u00e9e initialement sous l&rsquo;hypoth\u00e8se nulle. Si les deux transitions possibles sont \u00e9quiprobables dans la population (<span class=\"arabpsy-math-inline\" data-latex=\"H_0 : p_{12} = p_{21}\">$H_0 : p_{12} = p_{21}$<\/span>), alors conditionnellement au nombre total de transitions observ\u00e9es (<span class=\"arabpsy-math-inline\" data-latex=\"n^* = b + c\">$n^* = b + c$<\/span>), le nombre de changements d&rsquo;un type d\u00e9termin\u00e9 (par exemple <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>) suit rigoureusement une loi binomiale de param\u00e8tres <span class=\"arabpsy-math-inline\" data-latex=\"n^*\">$n^*$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"p = 0.5\">$p = 0.5$<\/span> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"b mid (b + c) \\sim \\mathcal{B}(b + c, 0.5)\">$$b mid (b + c) \\sim \\mathcal{B}(b + c, 0.5)$$<\/span><\/p>\n<p>D\u00e8s lors, l&rsquo;\u00e9valuation de l&rsquo;hypoth\u00e8se nulle ne requiert aucune fonction complexe d\u00e9di\u00e9e, mais s&rsquo;ex\u00e9cute directement par l&rsquo;appel de la fonction native standard <code>binom.test()<\/code> du package <code>stats<\/code>. Soit un protocole th\u00e9rapeutique dans lequel les cellules discordantes observ\u00e9es sont <span class=\"arabpsy-math-inline\" data-latex=\"b = 9\">$b = 9$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"c = 2\">$c = 2$<\/span>. Le nombre total de transitions s&rsquo;\u00e9tablit \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"n^* = 11\">$n^* = 11$<\/span>, ce qui rend toute approximation par le chi-carr\u00e9 m\u00e9thodologiquement invalide. L&rsquo;analyse exacte s&rsquo;ex\u00e9cute selon la syntaxe suivante :<\/p>\n<p><code>test_exact_binomial &lt;- binom.test(x = 9, n = 11, p = 0.5, alternative = \"two.sided\")<\/code><\/p>\n<p>L&rsquo;objet retourn\u00e9 renvoie une probabilit\u00e9 critique bilat\u00e9rale exacte bas\u00e9e sur la somme des probabilit\u00e9s ponctuelles binomiales dont la densit\u00e9 est inf\u00e9rieure ou \u00e9gale \u00e0 celle de l&rsquo;\u00e9v\u00e9nement observ\u00e9. Dans cette configuration, R fournit une valeur de <span class=\"arabpsy-math-inline\" data-latex=\"p = 0.0654\">$p = 0.0654$<\/span>. Si le chercheur avait ex\u00e9cut\u00e9 \u00e0 tort un test de McNemar asymptotique standard non corrig\u00e9 sur ces m\u00eames donn\u00e9es, la console aurait affich\u00e9 une statistique <span class=\"arabpsy-math-inline\" data-latex=\"\\chi^2 = (9 - 2)^2 \/ 11 = 4.45\">$\\chi^2 = (9 &#8211; 2)^2 \/ 11 = 4.45$<\/span>, associ\u00e9e \u00e0 une probabilit\u00e9 critique de <span class=\"arabpsy-math-inline\" data-latex=\"p = 0.0348\">$p = 0.0348$<\/span>. L&rsquo;analyste imprudent aurait ainsi conclu pr\u00e9matur\u00e9ment \u00e0 un effet th\u00e9rapeutique statistiquement significatif au seuil standard <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha = 0.05\">$\\alpha = 0.05$<\/span>, commettant une erreur de type I directe imputable \u00e0 l&rsquo;effondrement de l&rsquo;approximation distributionnelle.<\/p>\n<h3>7.3 Utilisation du package d\u00e9di\u00e9 exact2x2<\/h3>\n<p>Bien que la commande <code>binom.test()<\/code> fournisse une r\u00e9ponse rigoureuse au test d&rsquo;hypoth\u00e8se ponctuelle, elle pr\u00e9sente la limite ergonomique d&rsquo;exiger l&rsquo;extraction manuelle des effectifs <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span> et ne fournit pas d&rsquo;estimation directe du rapport de cotes appari\u00e9 (<em>matched odds ratio<\/em>) assorti de ses intervalles de confiance sp\u00e9cifiques. Pour combler cette lacune op\u00e9rationnelle, Michael P. Fay a d\u00e9velopp\u00e9 le package sp\u00e9cialis\u00e9 <a rel=\"noopener noreferrer\" href=\"https:\/\/cran.r-project.org\/package=exact2x2\">exact2x2<\/a>.<\/p>\n<p>Ce module propose la fonction <code>exact2x2()<\/code>, sp\u00e9cifiquement param\u00e9tr\u00e9e pour ing\u00e9rer directement une table de contingence matricielle et lui appliquer un test de McNemar exact tout en modulant la d\u00e9finition computationnelle de la valeur critique bilat\u00e9rale :<\/p>\n<p><code>resultat_exact &lt;- exact2x2(table_contingence, paired = TRUE, tsmethod = \"minlike\")<\/code><\/p>\n<p>L&rsquo;argument fondamental <code>paired = TRUE<\/code> informe imp\u00e9rativement l&rsquo;algorithme qu&rsquo;il s&rsquo;agit de donn\u00e9es corr\u00e9l\u00e9es, activant le test de McNemar exact au lieu du test exact de Fisher r\u00e9serv\u00e9 aux \u00e9chantillons ind\u00e9pendants. L&rsquo;argument <code>tsmethod<\/code> r\u00e9git la m\u00e9thode de calcul de la probabilit\u00e9 bilat\u00e9rale (<em>two-sided method<\/em>), offrant trois approches math\u00e9matiques :<\/p>\n<ul>\n<li><code>\"minlike\"<\/code> : M\u00e9thode standard sommant la probabilit\u00e9 de toutes les tables dont la vraisemblance est inf\u00e9rieure ou \u00e9gale \u00e0 la table observ\u00e9e (approche conventionnelle de Fisher-McNemar).<\/li>\n<li><code>\"central\"<\/code> : M\u00e9thode doublant la probabilit\u00e9 unilat\u00e9rale minimale, garantissant un intervalle de confiance strictement inversible et centralis\u00e9.<\/li>\n<li><code>\"blaker\"<\/code> : M\u00e9thode d\u00e9velopp\u00e9e par Blaker (2000), reconnue pour produire des intervalles de confiance plus \u00e9troits tout en maintenant un respect absolu du niveau de couverture nominal <span class=\"arabpsy-math-inline\" data-latex=\"1 - \\alpha\">$1 &#8211; \\alpha$<\/span>.<\/li>\n<\/ul>\n<p>La sortie fournie par <code>exact2x2()<\/code> d\u00e9livre non seulement la probabilit\u00e9 critique exacte, mais extrait l&rsquo;intervalle de confiance non param\u00e9trique exact pour le rapport de cotes de transition, offrant un cadre inf\u00e9rentiel robuste et complet pour la publication clinique.<\/p>\n<h2>8. Quantification de la taille d&rsquo;effet et indices d&rsquo;association<\/h2>\n<h3>8.1 Rapport de cotes appari\u00e9 (Matched Odds Ratio)<\/h3>\n<p>L&rsquo;inf\u00e9rence statistique contemporaine exige que la pr\u00e9sentation d&rsquo;une valeur de probabilit\u00e9 critique soit syst\u00e9matiquement corrobor\u00e9e par la quantification rigoureuse de la taille d&rsquo;effet (<em>effect size<\/em>). Dans le cadre des plans d&rsquo;exp\u00e9rience appari\u00e9s portant sur des variables binaires, l&rsquo;indice d&rsquo;association standard par excellence est le rapport de cotes appari\u00e9, d\u00e9sign\u00e9 dans la litt\u00e9rature internationale sous le vocable de <em>Matched-Pairs Odds Ratio<\/em> (<span class=\"arabpsy-math-inline\" data-latex=\"OR_{\\text{appari\u00e9}}\">$OR_{\\text{appari\u00e9}}$<\/span>).<\/p>\n<p>Il est imp\u00e9ratif de souligner qu&rsquo;un rapport de cotes appari\u00e9 ne se calcule pas sur les totaux marginaux de la m\u00eame mani\u00e8re qu&rsquo;un rapport de cotes standard issu d&rsquo;un \u00e9chantillonnage ind\u00e9pendant. Sa formulation math\u00e9matique th\u00e9orique d\u00e9pend exclusivement du quotient des fr\u00e9quences relatives aux cellules discordantes :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"OR_{\\text{appari\u00e9}} = \\frac{b}{c}\">$$OR_{\\text{appari\u00e9}} = \\frac{b}{c}$$<\/span><\/p>\n<p>Ce ratio s&rsquo;interpr\u00e8te comme la cote (<em>odds<\/em>) qu&rsquo;un individu manifeste un changement d&rsquo;\u00e9tat dans une direction d\u00e9termin\u00e9e (par exemple, passage de Phobique \u00e0 Sain), comparativement \u00e0 la cote qu&rsquo;il subisse une transition rigoureusement inverse (passage de Sain \u00e0 Phobique). Si l&rsquo;intervention est d\u00e9pourvue de tout effet diff\u00e9rentiel, les transitions d&rsquo;un sens et de l&rsquo;autre s&rsquo;\u00e9quilibrent, conduisant \u00e0 un rapport th\u00e9orique <span class=\"arabpsy-math-inline\" data-latex=\"OR = 1.00\">$OR = 1.00$<\/span>. Une valeur substantiellement sup\u00e9rieure \u00e0 l&rsquo;unit\u00e9 t\u00e9moigne d&rsquo;une asym\u00e9trie favorable \u00e0 la premi\u00e8re trajectoire de conversion.<\/p>\n<p>L&rsquo;estimation automatis\u00e9e de cet indicateur peut \u00eatre conduite sous R en mobilisant le package d&rsquo;\u00e9pid\u00e9miologie <code>epitools<\/code> via sa fonction d\u00e9di\u00e9e aux s\u00e9ries appari\u00e9es :<\/p>\n<p><code>rapport_cotes &lt;- epimatch(table_contingence)<\/code><\/p>\n<p>Alternativement, le calcul alg\u00e9brique direct sous R demeure d&rsquo;une extr\u00eame limpidit\u00e9 :<\/p>\n<p><code>or_point &lt;- table_contingence[1, 2] \/ table_contingence[2, 1]<\/code><\/p>\n<p>Ce param\u00e8tre synth\u00e9tique traduit l&rsquo;intensit\u00e9 clinique du d\u00e9s\u00e9quilibre de transition, fournissant aux praticiens une mesure compr\u00e9hensible du b\u00e9n\u00e9fice direct imputable au protocole d&rsquo;intervention.<\/p>\n<h3>8.2 Diff\u00e9rence absolue de proportions marginales<\/h3>\n<p>Bien que le rapport de cotes appari\u00e9 constitue un estimateur relatif fondamental, les recommandations de l&rsquo;American Psychological Association (<a rel=\"noopener noreferrer\" href=\"https:\/\/apastyle.apa.org\/\">APA<\/a>) et de l&rsquo;initiative m\u00e9dicale CONSORT pr\u00e9conisent d&rsquo;assortir syst\u00e9matiquement les mesures relatives d&rsquo;estimations absolues du changement. Dans le test de McNemar, la taille d&rsquo;effet absolue fondamentale r\u00e9side dans la diff\u00e9rence des proportions marginales (<span class=\"arabpsy-math-inline\" data-latex=\"\\Delta p\">$\\Delta p$<\/span>).<\/p>\n<p>Cet indicateur quantifie l&rsquo;accroissement ou la r\u00e9duction nette du taux de pr\u00e9valence du comportement ou de la pathologie entre les deux temps d&rsquo;\u00e9valuation, rapport\u00e9e \u00e0 l&rsquo;ensemble de la cohorte <span class=\"arabpsy-math-inline\" data-latex=\"N\">$N$<\/span>. Math\u00e9matiquement, l&rsquo;estimation non biais\u00e9e de la diff\u00e9rence des proportions marginales s&rsquo;\u00e9tablit par l&rsquo;\u00e9quation :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\Delta p = p_{1.} - p_{.1} = \\frac{a + b}{N} - \\frac{a + c}{N} = \\frac{b - c}{N}\">$$\\Delta p = p_{1.} &#8211; p_{.1} = \\frac{a + b}{N} &#8211; \\frac{a + c}{N} = \\frac{b &#8211; c}{N}$$<\/span><\/p>\n<p>Cette formulation d\u00e9montre une nouvelle fois que l&rsquo;\u00e9volution nette de l&rsquo;ensemble de l&rsquo;\u00e9chantillon r\u00e9sulte exclusivement de la diff\u00e9rence alg\u00e9brique entre les transitions ascendantes et descendantes, dilu\u00e9e au sein du collectif total. En psychologie clinique, cet indice s&rsquo;apparente directement \u00e0 la R\u00e9duction Absolue du Risque (RAR) ou au Gain Absolu d&rsquo;Efficacit\u00e9. Son inverse alg\u00e9brique, <span class=\"arabpsy-math-inline\" data-latex=\"1 \/ |\\Delta p|\">$1 \/ |\\Delta p|$<\/span>, d\u00e9finit le Nombre de Sujets \u00e0 Traiter (<em>Number Needed to Treat<\/em> ou NNT), une m\u00e9trique de premi\u00e8re importance pour l&rsquo;\u00e9valuation m\u00e9dico-\u00e9conomique et clinique.<\/p>\n<p>L&rsquo;estimation de l&rsquo;intervalle de confiance encadrant cette diff\u00e9rence absolue peut s&rsquo;effectuer sous R via l&rsquo;approche de Wald ou, pr\u00e9f\u00e9rentiellement pour des raisons de couverture statistique optimale sur petits et moyens \u00e9chantillons, via la m\u00e9thode des scores de Robert Newcombe impl\u00e9ment\u00e9e au sein de diverses extensions \u00e9pid\u00e9miologiques ou programm\u00e9e analytiquement :<\/p>\n<p><code>diff_marg &lt;- (table_contingence[1, 2] - table_contingence[2, 1]) \/ sum(table_contingence)<\/code><\/p>\n<p>L&rsquo;\u00e9nonciation claire d&rsquo;un gain marginal absolu assorti de son intervalle de confiance permet d&rsquo;ancrer les conclusions scientifiques dans une r\u00e9alit\u00e9 comportementale tangible, pr\u00e9venant l&rsquo;\u00e9cueil d&rsquo;une surinterpr\u00e9tation d&rsquo;un rapport de cotes \u00e9lev\u00e9 qui porterait en r\u00e9alit\u00e9 sur des transitions d&rsquo;effectifs extr\u00eamement marginaux.<\/p>\n<h3>8.3 Coefficient g de Cohen pour les proportions appari\u00e9es<\/h3>\n<p>Dans l&rsquo;arsenal classique des tailles d&rsquo;effet standardis\u00e9es formul\u00e9es par Jacob Cohen (1988), le coefficient <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span> est sp\u00e9cifiquement r\u00e9serv\u00e9 aux plans appari\u00e9s portant sur des proportions dichotomiques. Alors que le <span class=\"arabpsy-math-inline\" data-latex=\"d\">$d$<\/span> de Cohen mesure l&rsquo;\u00e9cart standardis\u00e9 entre moyennes continues et que le <span class=\"arabpsy-math-inline\" data-latex=\"w\">$w$<\/span> \u00e9value l&rsquo;association globale dans une table multidimensionnelle, le coefficient <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span> quantifie l&rsquo;ampleur de la divergence par rapport au postulat d&rsquo;\u00e9quiprobabilit\u00e9 des paires discordantes.<\/p>\n<p>Soit <span class=\"arabpsy-math-inline\" data-latex=\"P\">$P$<\/span> la proportion observ\u00e9e de transitions orient\u00e9es dans la cellule <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> relativement \u00e0 l&rsquo;ensemble des cas discordants :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P = \\frac{b}{b + c}\">$$P = \\frac{b}{b + c}$$<\/span><\/p>\n<p>Sous l&rsquo;hypoth\u00e8se nulle d&rsquo;homog\u00e9n\u00e9it\u00e9 marginale, cette proportion th\u00e9orique attendue est de $0.50$. Le coefficient <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span> de Cohen se d\u00e9finit formellement comme l&rsquo;\u00e9cart absolu s\u00e9parant la proportion observ\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"P\">$P$<\/span> de sa valeur d&rsquo;indiff\u00e9rence th\u00e9orique :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"g = |P - 0.5| = left|\\frac{b}{b + c} - 0.5right|\">$$g = |P &#8211; 0.5| = left|\\frac{b}{b + c} &#8211; 0.5right|$$<\/span><\/p>\n<p>L&rsquo;indice <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span> varie dans un intervalle born\u00e9 compris entre $0.00$ (sym\u00e9trie absolue, absence totale d&rsquo;effet) et $0.50$ (asym\u00e9trie totale, o\u00f9 l&rsquo;une des cellules discordantes est \u00e9gale \u00e0 z\u00e9ro). Cohen a \u00e9tabli des balises heuristiques conventionnelles d&rsquo;interpr\u00e9tation pour le coefficient <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span>, largement adopt\u00e9es dans la litt\u00e9rature psychologique :<\/p>\n<ul>\n<li><strong>Effet faible :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"g \\approx 0.05\">$g \\approx 0.05$<\/span> (ce qui \u00e9quivaut \u00e0 un ratio de transitions de <span class=\"arabpsy-math-inline\" data-latex=\"55%\">$55%$<\/span> contre <span class=\"arabpsy-math-inline\" data-latex=\"45%\">$45%$<\/span>).<\/li>\n<li><strong>Effet moyen :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"g \\approx 0.15\">$g \\approx 0.15$<\/span> (ce qui correspond \u00e0 un ratio de transitions de <span class=\"arabpsy-math-inline\" data-latex=\"65%\">$65%$<\/span> contre <span class=\"arabpsy-math-inline\" data-latex=\"35%\">$35%$<\/span>).<\/li>\n<li><strong>Effet fort :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"g ge 0.25\">$g ge 0.25$<\/span> (ce qui traduit un ratio de transitions d&rsquo;au moins <span class=\"arabpsy-math-inline\" data-latex=\"75%\">$75%$<\/span> contre <span class=\"arabpsy-math-inline\" data-latex=\"25%\">$25%$<\/span>).<\/li>\n<\/ul>\n<p>L&rsquo;impl\u00e9mentation algorithmique d&rsquo;une fonction R personnalis\u00e9e d\u00e9di\u00e9e \u00e0 l&rsquo;extraction imm\u00e9diate du coefficient <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span> et de sa qualification qualitative s&rsquo;\u00e9tablit selon la syntaxe vectorielle suivante :<\/p>\n<p><code>calculer_g_cohen &lt;- function(matrice) {<\/code><br \/>\n<code>&nbsp;&nbsp;b &lt;- matrice[1, 2]<\/code><br \/>\n<code>&nbsp;&nbsp;c &lt;- matrice[2, 1]<\/code><br \/>\n<code>&nbsp;&nbsp;if ((b + c) == 0) return(0)<\/code><br \/>\n<code>&nbsp;&nbsp;P &lt;- b \/ (b + c)<\/code><br \/>\n<code>&nbsp;&nbsp;g &lt;- abs(P - 0.5)<\/code><br \/>\n<code>&nbsp;&nbsp;qualification &lt;- cut(g, breaks = c(-Inf, 0.05, 0.15, 0.25, Inf),<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;labels = c(\"N\u00e9gligeable\", \"Faible\", \"Moyen\", \"Fort\"))<\/code><br \/>\n<code>&nbsp;&nbsp;return(list(P = P, g_Cohen = g, Interpretation = qualification))<\/code><br \/>\n<code>}<\/code><\/p>\n<p>La mobilisation conjointe du rapport de cotes, de la diff\u00e9rence marginale absolue et du coefficient <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span> garantit un compte rendu statistique complet, conforme aux exigences de m\u00e9trologie exp\u00e9rimentale les plus rigoureuses.<\/p>\n<h2>9. Diagnostics post-hoc et intervalles de confiance avanc\u00e9s<\/h2>\n<h3>9.1 Intervalles de confiance pour le rapport de cotes appari\u00e9<\/h3>\n<p>L&rsquo;estimation ponctuelle du rapport de cotes appari\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"OR = b\/c\">$OR = b\/c$<\/span>) demeure incompl\u00e8te si elle n&rsquo;est pas assortie d&rsquo;un intervalle de confiance d\u00e9limitant l&rsquo;incertitude d&rsquo;\u00e9chantillonnage \u00e0 un niveau de confiance fix\u00e9 (habituellement <span class=\"arabpsy-math-inline\" data-latex=\"95%\">$95%$<\/span>). Pour calculer cet intervalle sur des \u00e9chantillons discordants de taille suffisante, la m\u00e9thode asymptotique standard repose sur une transformation logarithmique n\u00e9p\u00e9rienne.<\/p>\n<p>La distribution d&rsquo;\u00e9chantillonnage de <span class=\"arabpsy-math-inline\" data-latex=\"ln(OR)\">$ln(OR)$<\/span> converge vers une loi normale avec une erreur-type asymptotique (<span class=\"arabpsy-math-inline\" data-latex=\"SE\">$SE$<\/span>) formul\u00e9e \u00e9l\u00e9gamment comme suit :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"SE(\\ln OR) = \\sqrt{\\frac{1}{b} + \\frac{1}{c}}\">$$SE(\\ln OR) = \\sqrt{\\frac{1}{b} + \\frac{1}{c}}$$<\/span><\/p>\n<p>Les bornes inf\u00e9rieure (<span class=\"arabpsy-math-inline\" data-latex=\"L\">$L$<\/span>) et sup\u00e9rieure (<span class=\"arabpsy-math-inline\" data-latex=\"U\">$U$<\/span>) de l&rsquo;intervalle de confiance \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"95%\">$95%$<\/span> pour le logarithme du rapport de cotes s&rsquo;obtiennent en appliquant le quantile normal standard <span class=\"arabpsy-math-inline\" data-latex=\"Z_{1 - alpha\/2} = 1.96\">$Z_{1 &#8211; alpha\/2} = 1.96$<\/span> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\ln L, \\ln U = \\ln(OR) \\pm 1.96 \\times \\sqrt{\\frac{1}{b} + \\frac{1}{c}}\">$$\\ln L, \\ln U = \\ln(OR) \\pm 1.96 \\times \\sqrt{\\frac{1}{b} + \\frac{1}{c}}$$<\/span><\/p>\n<p>L&rsquo;intervalle de confiance final pour l&rsquo;indice <span class=\"arabpsy-math-inline\" data-latex=\"OR\">$OR$<\/span> s&rsquo;obtient par l&rsquo;exponentiation des bornes obtenues : <span class=\"arabpsy-math-inline\" data-latex=\"[L, U] = [exp(ln L), exp(ln U)]\">$[L, U] = [exp(ln L), exp(ln U)]$<\/span>. L&rsquo;impl\u00e9mentation de cette proc\u00e9dure sous R s&rsquo;articule par les lignes de code suivantes :<\/p>\n<p><code>b &lt;- table_contingence[1, 2]<\/code><br \/>\n<code>c &lt;- table_contingence[2, 1]<\/code><br \/>\n<code>or_est &lt;- b \/ c<\/code><br \/>\n<code>se_ln_or &lt;- sqrt(1\/b + 1\/c)<\/code><br \/>\n<code>ic_inf &lt;- exp(log(or_est) - 1.96 * se_ln_or)<\/code><br \/>\n<code>ic_sup &lt;- exp(log(or_est) + 1.96 * se_ln_or)<\/code><\/p>\n<p>Lorsque l&rsquo;un des effectifs discordants est faible ou nul, la formule de Wald asymptotique s&rsquo;effondre (l&rsquo;erreur-type tendant vers l&rsquo;infini). Il est alors imp\u00e9ratif d&rsquo;extraire les bornes exactes bas\u00e9es sur la distribution <span class=\"arabpsy-math-inline\" data-latex=\"F\">$F$<\/span> de Fisher-Snedecor, op\u00e9rationnellement ex\u00e9cut\u00e9e par la fonction <code>exact2x2()<\/code> d\u00e9j\u00e0 mentionn\u00e9e. L&rsquo;inclusion de la valeur pivot $1.00$ au sein de l&rsquo;intervalle de confiance indique l&rsquo;absence d&rsquo;asym\u00e9trie statistiquement significative au seuil retenu.<\/p>\n<h3>9.2 Analyse de r\u00e9sidus et mod\u00e9lisation log-lin\u00e9aire de sym\u00e9trie<\/h3>\n<p>D&rsquo;un point de vue th\u00e9orique avanc\u00e9, le test de McNemar ne constitue pas un cas isol\u00e9 de statistique non param\u00e9trique, mais correspond rigoureusement \u00e0 l&rsquo;\u00e9valuation d&rsquo;un mod\u00e8le log-lin\u00e9aire de sym\u00e9trie sous contrainte appliqu\u00e9e \u00e0 une table de contingence carr\u00e9e. Comprendre cette passerelle conceptuelle permet de mobiliser les outils sophistiqu\u00e9s de la mod\u00e9lisation lin\u00e9aire g\u00e9n\u00e9ralis\u00e9e sous R pour mener des diagnostics r\u00e9siduels post-hoc.<\/p>\n<p>Dans un cadre log-lin\u00e9aire de Poisson, le mod\u00e8le de sym\u00e9trie postule que l&rsquo;esp\u00e9rance de l&rsquo;effectif <span class=\"arabpsy-math-inline\" data-latex=\"\\mu_{ij}\">$\\mu_{ij}$<\/span> dans la cellule <span class=\"arabpsy-math-inline\" data-latex=\"(i, j)\">$(i, j)$<\/span> est identique \u00e0 l&rsquo;esp\u00e9rance <span class=\"arabpsy-math-inline\" data-latex=\"\\mu_{ji}\">$\\mu_{ji}$<\/span> de la cellule transpos\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"(j, i)\">$(j, i)$<\/span>. Pour estimer ce mod\u00e8le sous R, on convertit la matrice 2&#215;2 en un tableau long recensant les effectifs de chaque case, puis on cr\u00e9e un facteur d&rsquo;identification sym\u00e9trique non orient\u00e9 :<\/p>\n<p><code>df_sym &lt;- as.data.frame(as.table(table_contingence))<\/code><br \/>\n<code>colnames(df_sym) &lt;- c(\"Pre\", \"Post\", \"Freq\")<\/code><br \/>\n<code>df_sym$Paire &lt;- factor(c(\"1-1\", \"1-2\", \"1-2\", \"2-2\"))<\/code><\/p>\n<p>L&rsquo;estimation du mod\u00e8le s&rsquo;effectue au moyen de la fonction <code>glm()<\/code> de la famille de Poisson :<\/p>\n<p><code>modele_symetrie &lt;- glm(Freq ~ Paire, data = df_sym, family = poisson)<\/code><\/p>\n<p>La d\u00e9viance r\u00e9siduelle (<em>residual deviance<\/em>) de ce mod\u00e8le correspond exactement \u00e0 la statistique du rapport de vraisemblance (<span class=\"arabpsy-math-inline\" data-latex=\"G^2\">$G^2$<\/span>) du test de McNemar, associ\u00e9e \u00e0 1 degr\u00e9 de libert\u00e9. L&rsquo;inspection des r\u00e9sidus de Pearson standardis\u00e9s issus de ce mod\u00e8le via la commande <code>residuals(modele_symetrie, type = \"pearson\")<\/code> permet de localiser pr\u00e9cis\u00e9ment les cellules du tableau crois\u00e9 g\u00e9n\u00e9ratrices de tensions distributionnelles, confirmant que l&rsquo;int\u00e9gralit\u00e9 de l&rsquo;inad\u00e9quation du mod\u00e8le se concentre exclusivement sur les deux cellules de transition hors-diagonale.<\/p>\n<h3>9.3 Sensibilit\u00e9 m\u00e9thodologique et analyse de puissance a posteriori<\/h3>\n<p>L&rsquo;analyse statistique d&rsquo;un r\u00e9sultat non significatif soul\u00e8ve in\u00e9vitablement la question de la puissance statistique r\u00e9trospective : le protocole exp\u00e9rimental disposait-il de la sensibilit\u00e9 n\u00e9cessaire pour d\u00e9celer une asym\u00e9trie de transition si celle-ci existait au sein de la population parente ? Dans les plans appari\u00e9s binaires, la puissance d\u00e9pend de deux facteurs : la taille absolue de la sous-cohorte discordante (<span class=\"arabpsy-math-inline\" data-latex=\"n^* = b + c\">$n^* = b + c$<\/span>) et la discordance proportionnelle marginale.<\/p>\n<p>Le calcul de puissance peut \u00eatre mod\u00e9lis\u00e9 sous R au moyen des routines d&rsquo;approximation binomiale ou via la biblioth\u00e8que sp\u00e9cialis\u00e9e <code>pwr<\/code>. En mobilisant l&rsquo;analogie du test binomial \u00e9quivalent \u00e0 une comparaison d&rsquo;une proportion \u00e0 la valeur centrale $0.50$, la d\u00e9termination du nombre de paires discordantes requis pour atteindre une puissance cible de <span class=\"arabpsy-math-inline\" data-latex=\"80%\">$80%$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"1 - \\beta = 0.80\">$1 &#8211; \\beta = 0.80$<\/span>) face \u00e0 un effet moyen de Cohen (<span class=\"arabpsy-math-inline\" data-latex=\"g = 0.15 \\rightarrow P = 0.65\">$g = 0.15 \\rightarrow P = 0.65$<\/span>) s&rsquo;op\u00e8re par :<\/p>\n<p><code>library(pwr)<\/code><br \/>\n<code>h_cohen &lt;- 2 * asin(sqrt(0.65)) - 2 * asin(sqrt(0.50))<\/code><br \/>\n<code>puissance_discordants &lt;- pwr.p.test(h = h_cohen, sig.level = 0.05, power = 0.80, alternative = \"two.sided\")<\/code><\/p>\n<p>Cette commande r\u00e9v\u00e8le qu&rsquo;environ 88 paires discordantes r\u00e9elles sont strictement n\u00e9cessaires pour d\u00e9tecter une asym\u00e9trie de conversion de ratio 65\/35 avec une puissance de <span class=\"arabpsy-math-inline\" data-latex=\"80%\">$80%$<\/span>. Si un chercheur observe un \u00e9chantillon total de <span class=\"arabpsy-math-inline\" data-latex=\"N = 200\">$N = 200$<\/span> sujets mais que son taux de concordance temporelle est massif (par exemple <span class=\"arabpsy-math-inline\" data-latex=\"90%\">$90%$<\/span> des participants demeurant stables dans les cases <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"d\">$d$<\/span>), le nombre effectif de paires discordantes mobilisables ne sera que de 20. D\u00e8s lors, le test souffre d&rsquo;une sous-puissance structurelle critique, rendant le non-rejet de l&rsquo;hypoth\u00e8se nulle d\u00e9nu\u00e9 de port\u00e9e concluante.<\/p>\n<p>L&rsquo;analyse de sensibilit\u00e9 pr\u00e9-exp\u00e9rimentale doit donc anticiper non pas la taille brute de l&rsquo;\u00e9chantillon \u00e0 recruter, mais le taux attendu de transition intrasujet, condition sine qua non de la robustesse inf\u00e9rentielle du dispositif empirique.<\/p>\n<h2>10. Extensions du test : variables polytomiques et test de Bowker<\/h2>\n<h3>10.1 Passage des tables 2&#215;2 aux tables KxK<\/h3>\n<p>Dans la pratique de la recherche psychologique et sociale, les indicateurs d&rsquo;\u00e9valuation comportementale ou clinique d\u00e9passent fr\u00e9quemment le cadre strict de la dichotomie \u00e9l\u00e9mentaire. Les \u00e9chelles de cotation psychiatrique (telles que les stades de s\u00e9v\u00e9rit\u00e9 d&rsquo;un \u00e9pisode d\u00e9pressif selon l&rsquo;\u00e9chelle de Hamilton : L\u00e9ger, Mod\u00e9r\u00e9, S\u00e9v\u00e8re), les \u00e9chelles de Likert multi-niveaux employ\u00e9es dans les inventaires de personnalit\u00e9 ou les cat\u00e9gorisations de profils vocationnels constituent des variables polytomiques nominales ou ordinales \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"K\">$K$<\/span> modalit\u00e9s distinctes, avec <span class=\"arabpsy-math-inline\" data-latex=\"K ge 3\">$K ge 3$<\/span>.<\/p>\n<p>Dans cette configuration \u00e0 \u00e9tats multiples \u00e9valu\u00e9s de mani\u00e8re r\u00e9p\u00e9t\u00e9e, le test standard de McNemar 2&#215;2 s&rsquo;av\u00e8re inop\u00e9rant. Tenter de fractionner la table carr\u00e9e r\u00e9sultante de dimension <span class=\"arabpsy-math-inline\" data-latex=\"K \\times K\">$K \\times K$<\/span> en une multitude de sous-comparaisons binaires non coordonn\u00e9es engendre une d\u00e9structuration de l&rsquo;architecture stochastique globale et expose l&rsquo;analyste \u00e0 une inflation dramatique de l&rsquo;erreur globale de type I.<\/p>\n<p>Pour r\u00e9soudre cette probl\u00e9matique, Albert H. Bowker a propos\u00e9 en 1948 une g\u00e9n\u00e9ralisation matricielle directe du test de McNemar, connue sous la d\u00e9signation de test de sym\u00e9trie de Bowker (<em>Bowker&rsquo;s Test of Symmetry<\/em>). Ce test \u00e9value l&rsquo;hypoth\u00e8se nulle globale selon laquelle la table carr\u00e9e conjointe <span class=\"arabpsy-math-inline\" data-latex=\"K \\times K\">$K \\times K$<\/span> est rigoureusement sym\u00e9trique par rapport \u00e0 sa diagonale principale. Formellement, l&rsquo;hypoth\u00e8se nulle s&rsquo;\u00e9nonce :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"H_0 : p_{ij} = p_{ji} \\quad \\text{pour tout } i ne j\">$$H_0 : p_{ij} = p_{ji} \\quad \\text{pour tout } i ne j$$<\/span><\/p>\n<p>Cette formalisation postule que pour toute paire de cat\u00e9gories <span class=\"arabpsy-math-inline\" data-latex=\"(i, j)\">$(i, j)$<\/span>, la probabilit\u00e9 th\u00e9orique d&rsquo;effectuer une transition ascendante de l&rsquo;\u00e9tat <span class=\"arabpsy-math-inline\" data-latex=\"i\">$i$<\/span> vers l&rsquo;\u00e9tat <span class=\"arabpsy-math-inline\" data-latex=\"j\">$j$<\/span> est strictement \u00e9gale \u00e0 la probabilit\u00e9 de manifester la transition r\u00e9trograde inverse de l&rsquo;\u00e9tat <span class=\"arabpsy-math-inline\" data-latex=\"j\">$j$<\/span> vers l&rsquo;\u00e9tat <span class=\"arabpsy-math-inline\" data-latex=\"i\">$i$<\/span>. L&rsquo;hypoth\u00e8se alternative postule quant \u00e0 elle qu&rsquo;au moins une paire sym\u00e9trique viole cette condition de r\u00e9versibilit\u00e9 temporelle.<\/p>\n<h3>10.2 Ex\u00e9cution du test de Bowker sous R<\/h3>\n<p>L&rsquo;environnement computationnel R assure l&rsquo;ex\u00e9cution du test de sym\u00e9trie de Bowker par plusieurs vecteurs algorithmiques. La fonction native <code>mcnemar.test()<\/code> dispose d&rsquo;une adaptabilit\u00e9 interne remarquable : lorsqu&rsquo;une matrice carr\u00e9e de dimension <span class=\"arabpsy-math-inline\" data-latex=\"K \\times K\">$K \\times K$<\/span> (avec <span class=\"arabpsy-math-inline\" data-latex=\"K &gt; 2\">$K > 2$<\/span>) lui est transmise en argument, elle bascule automatiquement sur l&rsquo;algorithme g\u00e9n\u00e9ralis\u00e9 de Bowker.<\/p>\n<p>Consid\u00e9rons une table de contingence 3&#215;3 croisant le niveau de s\u00e9v\u00e9rit\u00e9 d\u00e9pressive d&rsquo;une cohorte de 150 patients \u00e9valu\u00e9s avant et apr\u00e8s un protocole de m\u00e9ditation de pleine conscience :<\/p>\n<p><code>table_3x3 &lt;- matrix(c(<\/code><br \/>\n<code>&nbsp;&nbsp;25, 10, &nbsp;2,<\/code><br \/>\n<code>&nbsp;&nbsp;30, 40, &nbsp;8,<\/code><br \/>\n<code>&nbsp;&nbsp;12, 18, &nbsp;5<\/code><br \/>\n<code>), nrow = 3, byrow = TRUE)<\/code><br \/>\n<code>dimnames(table_3x3) &lt;- list(<\/code><br \/>\n<code>&nbsp;&nbsp;\"Pre\" = c(\"Leger\", \"Modere\", \"Severe\"),<\/code><br \/>\n<code>&nbsp;&nbsp;\"Post\" = c(\"Leger\", \"Modere\", \"Severe\")<\/code><br \/>\n<code>)<\/code><\/p>\n<p>L&rsquo;ex\u00e9cution de la proc\u00e9dure s&rsquo;effectue par la syntaxe standard :<\/p>\n<p><code>test_bowker &lt;- mcnemar.test(table_3x3)<\/code><\/p>\n<p>La statistique de Bowker additionne les \u00e9carts sym\u00e9triques standardis\u00e9s selon l&rsquo;\u00e9quation :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\chi^2_{\\text{Bowker}} = \\sum_{i &lt; j} \\frac{(n_{ij} - n_{ji})^2}{n_{ij} + n_{ji}}\">$$\\chi^2_{\\text{Bowker}} = \\sum_{i &lt; j} \\frac{(n_{ij} &#8211; n_{ji})^2}{n_{ij} + n_{ji}}$$<\/span><\/p>\n<p>Cette statistique suit asymptotiquement une distribution du chi-carr\u00e9 dont le nombre de degr\u00e9s de libert\u00e9 correspond au nombre de paires hors-diagonale uniques, soit formellement :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"df = \\frac{K(K - 1)}{2}\">$$df = \\frac{K(K &#8211; 1)}{2}$$<\/span><\/p>\n<p>Pour une table 3&#215;3, le nombre de degr\u00e9s de libert\u00e9 s&rsquo;\u00e9tablit \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"3(2)\/2 = 3\">$3(2)\/2 = 3$<\/span>. L&rsquo;affichage de <code>test_bowker<\/code> fournit la valeur du chi-carr\u00e9 global, les degr\u00e9s de libert\u00e9 associ\u00e9s et la probabilit\u00e9 critique asymptotique. Une impl\u00e9mentation alternative encore plus flexible est disponible via le package <code>coin<\/code> et sa fonction <code>symmetry_test()<\/code>, capable d&rsquo;int\u00e9grer la nature ordinale des cat\u00e9gories sous-jacentes pour d\u00e9ployer des tests de tendance de marginalit\u00e9 (test de Stuart-Maxwell ou de quasi-sym\u00e9trie).<\/p>\n<h3>10.3 Strat\u00e9gies de d\u00e9composition et contrastes post-hoc<\/h3>\n<p>Lorsque le test global de sym\u00e9trie de Bowker conclut au rejet de l&rsquo;hypoth\u00e8se nulle ($p < alpha$), l'analyste se trouve dans une situation m\u00e9thodologique analogue \u00e0 celle d'une Analyse de Variance (ANOVA) omnibus significative : le test atteste de l'existence d'une asym\u00e9trie temporelle quelque part au sein du syst\u00e8me matriciel, mais s'av\u00e8re incapable d'isoler quelles paires de cat\u00e9gories sp\u00e9cifiques en sont les moteurs.<\/p>\n<p>Il est d\u00e8s lors n\u00e9cessaire de mettre en \u0153uvre une proc\u00e9dure d&rsquo;analyses post-hoc par d\u00e9composition matricielle. Cette strat\u00e9gie consiste \u00e0 extraire chacune des <span class=\"arabpsy-math-inline\" data-latex=\"K(K - 1)\/2\">$K(K &#8211; 1)\/2$<\/span> sous-tables de dimension 2&#215;2 form\u00e9es par les combinaisons deux \u00e0 deux des modalit\u00e9s, et \u00e0 leur appliquer individuellement le test de McNemar \u00e9l\u00e9mentaire. Pour notre table 3&#215;3, trois comparaisons appari\u00e9es cibl\u00e9es doivent \u00eatre conduites : L\u00e9ger versus Mod\u00e9r\u00e9, L\u00e9ger versus S\u00e9v\u00e8re, et Mod\u00e9r\u00e9 versus S\u00e9v\u00e8re.<\/p>\n<p>La multiplication de ces tests d&rsquo;hypoth\u00e8ses univari\u00e9s impose imp\u00e9rativement l&rsquo;application d&rsquo;un protocole d&rsquo;ajustement des probabilit\u00e9s critiques afin d&rsquo;endiguer l&rsquo;inflation de l&rsquo;erreur globale de type I (<em>Family-Wise Error Rate<\/em>). Le package de base R fournit la fonction <code>p.adjust()<\/code> permettant de moduler les p-valeurs calcul\u00e9es selon diverses m\u00e9thodes de contr\u00f4le :<\/p>\n<ul>\n<li><strong>Correction de Bonferroni :<\/strong> Approche classique conservatrice multipliant chaque p-valeur brute par le nombre total de comparaisons (<span class=\"arabpsy-math-inline\" data-latex=\"p_{\\text{adj}} = p \\times m\">$p_{\\text{adj}} = p \\times m$<\/span>).<\/li>\n<li><strong>Proc\u00e9dure s\u00e9quentielle de Holm-Bonferroni :<\/strong> M\u00e9thode strictement plus puissante que Bonferroni, maintenant un contr\u00f4le irr\u00e9prochable du risque <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha\">$\\alpha$<\/span> global sans sacrifier excessivement la puissance d&rsquo;analyse.<\/li>\n<li><strong>Taux de fausse d\u00e9couverte (FDR) de Benjamini-Hochberg :<\/strong> M\u00e9thode particuli\u00e8rement adapt\u00e9e aux d\u00e9compositions matricielles \u00e9tendues, optimisant la sensibilit\u00e9 de d\u00e9tection des sous-transitions psychologiques r\u00e9elles.<\/li>\n<\/ul>\n<p>L&rsquo;articulation script\u00e9e de ces contrastes post-hoc permet d&rsquo;identifier formellement les trajectoires motrices du changement clinique (par exemple en montrant que l&rsquo;asym\u00e9trie globale est exclusivement port\u00e9e par le glissement de \u00ab Mod\u00e9r\u00e9 \u00bb vers \u00ab L\u00e9ger \u00bb, tandis que le niveau \u00ab S\u00e9v\u00e8re \u00bb demeure r\u00e9fractaire \u00e0 l&rsquo;intervention).<\/p>\n<h2>11. Visualisation graphique professionnelle des donn\u00e9es appari\u00e9es sous R<\/h2>\n<h3>11.1 Graphiques en mosa\u00efque et diagrammes d&rsquo;association<\/h3>\n<p>La transmission des conclusions statistiques requiert une communication visuelle de haute qualit\u00e9. Pour repr\u00e9senter la distribution conjointe et mettre en exergue les structures d&rsquo;asym\u00e9trie au sein d&rsquo;une table appari\u00e9e, les graphiques en mosa\u00efque (<em>mosaic plots<\/em>) constituent un standard s\u00e9miologique particuli\u00e8rement puissant.<\/p>\n<p>Dans un graphique en mosa\u00efque, l&rsquo;espace bidimensionnel est fractionn\u00e9 en rectangles dont les aires surfaciques sont strictement proportionnelles aux fr\u00e9quences conjointes observ\u00e9es dans chaque case du tableau. Le package de visualisation cat\u00e9gorielle <code>vcd<\/code> (<em>Visualizing Categorical Data<\/em>) propose la fonction <code>mosaic()<\/code>, permettant d&rsquo;associer un ombrage chromatique standardis\u00e9 aux \u00e9carts statistiques observ\u00e9s :<\/p>\n<p><code>vcd::mosaic(table_contingence,<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;shade = TRUE,<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;legend = TRUE,<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;main = \"Sym\u00e9trie de transition pr\u00e9\/post intervention\")<\/code><\/p>\n<p>L&rsquo;argument <code>shade = TRUE<\/code> calcule en arri\u00e8re-plan les r\u00e9sidus de Pearson standardis\u00e9s sous le mod\u00e8le d&rsquo;ind\u00e9pendance et applique un d\u00e9grad\u00e9 chromatique intuitif (nuances de bleu pour les cellules en sur-repr\u00e9sentation statistique, nuances de rouge pour les sous-repr\u00e9sentations). Pour l&rsquo;analyse sp\u00e9cifique de sym\u00e9trie, l&rsquo;observation des asym\u00e9tries de taille et de teinte entre les deux rectangles situ\u00e9s hors de la diagonale principale permet au lecteur d&rsquo;appr\u00e9hender d&rsquo;un seul regard le sens et l&rsquo;ampleur du r\u00e9\u00e9quilibrage comportemental.<\/p>\n<h3>11.2 Diagrammes de flux alluviaux avec ggalluvial<\/h3>\n<p>Si les mosa\u00efques capturent la structure matricielle globale, elles n&rsquo;illustrent que partiellement le sentiment de d\u00e9placement et de trajectoire individuelle inh\u00e9rent aux \u00e9tudes longitudinales. Pour visualiser la dynamique de transformation avec une force p\u00e9dagogique sup\u00e9rieure, les diagrammes de flux alluviaux (<em>alluvial diagrams<\/em>), d\u00e9riv\u00e9s des diagrammes industriels de Sankey, s&rsquo;imposent d\u00e9sormais dans les publications de premier plan.<\/p>\n<p>Gr\u00e2ce \u00e0 l&rsquo;extension <code>ggalluvial<\/code> int\u00e9gr\u00e9e \u00e0 l&rsquo;\u00e9cosyst\u00e8me graphique <code>ggplot2<\/code>, il est possible de mat\u00e9rialiser les sujets sous forme de rubans de flux dont l&rsquo;\u00e9paisseur correspond aux effectifs de chaque trajectoire, connectant les strates du pr\u00e9-test \u00e0 celles du post-test. Consid\u00e9rons un data frame structur\u00e9 en format long :<\/p>\n<p><code>ggplot(data = donnees_flux,<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;aes(axis1 = Pre, axis2 = Post, y = Frequence)) +<\/code><br \/>\n<code>&nbsp;&nbsp;geom_alluvium(aes(fill = Trajectoire), width = 1\/12, alpha = 0.8) +<\/code><br \/>\n<code>&nbsp;&nbsp;geom_stratum(width = 1\/6, fill = \"grey80\", color = \"black\") +<\/code><br \/>\n<code>&nbsp;&nbsp;geom_text(stat = \"stratum\", aes(label = after_stat(stratum)), size = 4) +<\/code><br \/>\n<code>&nbsp;&nbsp;scale_x_discrete(limits = c(\"Pr\u00e9-Test\", \"Post-Test\"), expand = c(0.1, 0.1)) +<\/code><br \/>\n<code>&nbsp;&nbsp;scale_fill_manual(values = c(\"Stable\" = \"#7f7f7f\", \"Am\u00e9lioration\" = \"#2ca02c\", \"D\u00e9t\u00e9rioration\" = \"#d62728\")) +<\/code><br \/>\n<code>&nbsp;&nbsp;theme_minimal() +<\/code><br \/>\n<code>&nbsp;&nbsp;labs(title = \"Dynamique individuelle des transitions diagnostiques\",<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;y = \"Nombre cumul\u00e9 de participants\",<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fill = \"Statut clinique\")<\/code><\/p>\n<p>Ce type de rendu met en sc\u00e8ne de mani\u00e8re lumineuse la masse des flux concordants stables s&rsquo;\u00e9coulant horizontalement, travers\u00e9e par les flux diagonaux discordants dont l&rsquo;asym\u00e9trie de volume incarne directement la mat\u00e9rialit\u00e9 statistique du test de McNemar.<\/p>\n<h3>11.3 Visualisation des estimations d&rsquo;effet et de leurs intervalles<\/h3>\n<p>La finalisation d&rsquo;un manuscrit scientifique requiert \u00e9galement la repr\u00e9sentation normalis\u00e9e de la taille d&rsquo;effet ponctuelle et de son degr\u00e9 d&rsquo;incertitude sous la forme d&rsquo;un graphique en for\u00eat (<em>forest plot<\/em>) ou d&rsquo;un diagramme de barres coupl\u00e9es avec barres d&rsquo;erreur.<\/p>\n<p>Pour repr\u00e9senter graphiquement le rapport de cotes appari\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"OR_{\\text{appari\u00e9}}\">$OR_{\\text{appari\u00e9}}$<\/span>) issu d&rsquo;une s\u00e9rie d&rsquo;interventions ou de sous-groupes cliniques, l&rsquo;utilisation combin\u00e9e des fonctions g\u00e9om\u00e9triques de <code>ggplot2<\/code> offre un rendu conforme aux normes internationales :<\/p>\n<p><code>df_effet &lt;- data.frame(<\/code><br \/>\n<code>&nbsp;&nbsp;Indicateur = \"Rapport de cotes appari\u00e9 (OR)\",<\/code><br \/>\n<code>&nbsp;&nbsp;OR = or_est,<\/code><br \/>\n<code>&nbsp;&nbsp;IC_Bas = ic_inf,<\/code><br \/>\n<code>&nbsp;&nbsp;IC_Haut = ic_sup<\/code><br \/>\n<code>)<\/code><\/p>\n<p><code>ggplot(df_effet, aes(x = OR, y = Indicateur)) +<\/code><br \/>\n<code>&nbsp;&nbsp;geom_vline(xintercept = 1, linetype = \"dashed\", color = \"red\", linewidth = 0.8) +<\/code><br \/>\n<code>&nbsp;&nbsp;geom_errorbarh(aes(xmin = IC_Bas, xmax = IC_Haut), height = 0.2, linewidth = 0.8, color = \"navy\") +<\/code><br \/>\n<code>&nbsp;&nbsp;geom_point(size = 3.5, color = \"navy\") +<\/code><br \/>\n<code>&nbsp;&nbsp;scale_x_log10() +<\/code><br \/>\n<code>&nbsp;&nbsp;theme_classic() +<\/code><br \/>\n<code>&nbsp;&nbsp;labs(x = \"Rapport de cotes appari\u00e9 (\u00e9chelle logarithmique)\", y = NULL,<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;title = \"Taille d'effet de transition th\u00e9rapeutique et IC \u00e0 95%\")<\/code><\/p>\n<p>Pour satisfaire les exigences des comit\u00e9s \u00e9ditoriaux imposant des r\u00e9solutions graphiques optimales pour l&rsquo;impression, l&rsquo;exportation vectorielle standardis\u00e9e s&rsquo;op\u00e8re via la fonction <code>ggsave()<\/code> :<\/p>\n<p><code>ggsave(\"Figure1_Taille_Effet.tiff\", width = 180, height = 100, units = \"mm\", dpi = 300, compression = \"lzw\")<\/code><\/p>\n<p>Ce protocole assure la pr\u00e9servation d&rsquo;une nettet\u00e9 graphique absolue sans pixellisation lors du processus d&rsquo;\u00e9dition typographique.<\/p>\n<h2>12. R\u00e9daction acad\u00e9mique selon les normes APA et pi\u00e8ges m\u00e9thodologiques<\/h2>\n<h3>12.1 Directives de r\u00e9daction des r\u00e9sultats aux normes APA (7e \u00e9dition)<\/h3>\n<p>L&rsquo;int\u00e9gration des r\u00e9sultats d&rsquo;un test de McNemar au sein d&rsquo;une publication scientifique \u00e9valu\u00e9e par les pairs doit se conformer aux prescriptions typographiques et stylistiques de l&rsquo;<em>American Psychological Association<\/em> (<a rel=\"noopener noreferrer\" href=\"https:\/\/apastyle.apa.org\/\">normes APA, 7e \u00e9dition<\/a>). La r\u00e8gle fondamentale exige de ne jamais se limiter \u00e0 la simple mention d&rsquo;une p-valeur dichotomique, mais de contextualiser l&rsquo;analyse en rapportant syst\u00e9matiquement les fr\u00e9quences absolues, les proportions marginales, la valeur exacte de la statistique de test, ses degr\u00e9s de libert\u00e9 ainsi que la taille d&rsquo;effet assortie de son intervalle de confiance.<\/p>\n<p>Le format typographique formel d&rsquo;un chi-carr\u00e9 de McNemar impose la mise en italique de la lettre grecque <span class=\"arabpsy-math-inline\" data-latex=\"\\chi^2\">$\\chi^2$<\/span> (ou de la lettre latine majuscule non soulign\u00e9e <em>X<\/em><sup>2<\/sup> selon les typographies), suivie entre parenth\u00e8ses du degr\u00e9 de libert\u00e9 et de la taille totale de l&rsquo;\u00e9chantillon analys\u00e9, de la valeur num\u00e9rique de la statistique arrondie \u00e0 deux d\u00e9cimales, et de la probabilit\u00e9 critique exacte rapport\u00e9e \u00e0 trois d\u00e9cimales (sauf si $p < .001$) :<\/p>\n<p><em>X<\/em><sup>2<\/sup>(1, <em>N<\/em> = 120) = 8.64, <em>p<\/em> = .003, <em>OR<\/em> = 3.25, IC 95% [1.45, 7.28]<\/p>\n<p>Un mod\u00e8le de r\u00e9daction int\u00e9gr\u00e9e au sein du paragraphe de r\u00e9sultats d&rsquo;un article de recherche clinique peut \u00eatre formalis\u00e9 comme suit :<\/p>\n<blockquote><p>\n\u00ab Afin d&rsquo;\u00e9valuer l&rsquo;efficacit\u00e9 de l&rsquo;intervention cognitive bas\u00e9e sur la pleine conscience sur le statut de r\u00e9mission de l&rsquo;insomnie chronique, un test d&rsquo;homog\u00e9n\u00e9it\u00e9 marginale de McNemar sans correction de continuit\u00e9 a \u00e9t\u00e9 conduit sur les 120 participants ayant compl\u00e9t\u00e9 les deux temps de mesure. L&rsquo;analyse r\u00e9v\u00e8le une modification statistiquement significative de la proportion de patients en r\u00e9mission entre le pr\u00e9-test (22.5 %, <em>n<\/em> = 27) et le post-test (48.3 %, <em>n<\/em> = 58), <em>X<\/em><sup>2<\/sup>(1, <em>N<\/em> = 120) = 16.42, <em>p<\/em> &lt; .001. Parmi les individus manifestant un changement diagnostique effectif (<em>n<\/em> = 43), 37 ont acc\u00e9d\u00e9 \u00e0 la r\u00e9mission tandis que 6 ont connu une d\u00e9gradation de leur \u00e9tat clinique. Le rapport de cotes appari\u00e9 indique que les participants avaient 6.17 fois plus de chances de progresser vers la r\u00e9mission que de r\u00e9gresser vers l&rsquo;insomnie (<em>OR<\/em> = 6.17, IC 95% [2.55, 14.93]), ce qui repr\u00e9sente une r\u00e9duction absolue du risque marginal de 25.8 % (IC 95% [13.7 %, 37.9 %]) et une taille d&rsquo;effet standardis\u00e9e forte selon les crit\u00e8res de Cohen (<em>g<\/em> = 0.36). \u00bb\n<\/p><\/blockquote>\n<p>Cette r\u00e9daction conjugue clart\u00e9 narrative, pr\u00e9cision num\u00e9rique et rigueur descriptive, r\u00e9pondant \u00e0 l&rsquo;ensemble des crit\u00e8res de transparence scientifique contemporains.<\/p>\n<h3>12.2 Erreurs m\u00e9thodologiques et informatiques fr\u00e9quentes<\/h3>\n<p>L&rsquo;exp\u00e9rience p\u00e9dagogique et l&rsquo;audit statistique de manuscrits soumis r\u00e9v\u00e8lent la r\u00e9currence de plusieurs fautes conceptuelles et informatiques lors de la mise en \u0153uvre du test de McNemar sous R. L&rsquo;analyste averti veillera \u00e0 neutraliser ces risques syst\u00e9matiques :<\/p>\n<ul>\n<li><strong>La confusion majeure entre ind\u00e9pendance et homog\u00e9n\u00e9it\u00e9 :<\/strong> Appliquer la commande <code>chisq.test()<\/code> au lieu de <code>mcnemar.test()<\/code> sur un tableau 2&#215;2 appari\u00e9 constitue l&rsquo;erreur la plus pr\u00e9judiciable. Cette m\u00e9prise ignore la d\u00e9pendance s\u00e9rielle et g\u00e9n\u00e8re une statistique fondamentalement fausse.<\/li>\n<li><strong>L&rsquo;inversion spatiale de la table de contingence :<\/strong> Structurer la matrice de contingence en positionnant accidentellement le post-test en lignes et le pr\u00e9-test en colonnes permute les cellules <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>. Si la statistique <span class=\"arabpsy-math-inline\" data-latex=\"\\chi^2\">$\\chi^2$<\/span> bilat\u00e9rale demeure inchang\u00e9e, le rapport de cotes r\u00e9sultant est invers\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"OR_{\\text{invers\u00e9}} = 1 \/ OR_{\\text{vrai}}\">$OR_{\\text{invers\u00e9}} = 1 \/ OR_{\\text{vrai}}$<\/span>), conduisant \u00e0 conclure \u00e0 l&rsquo;aggravation d&rsquo;un \u00e9tat l\u00e0 o\u00f9 l&rsquo;intervention produit une am\u00e9lioration th\u00e9rapeutique.<\/li>\n<li><strong>L&rsquo;ignorance de la r\u00e8gle des cellules discordantes creuses :<\/strong> Maintenir l&rsquo;ex\u00e9cution d&rsquo;un test asymptotique avec ou sans Yates lorsque $b + c < 25$ produit une inf\u00e9rence d\u00e9grad\u00e9e. Le recours \u00e0 <code>exact2x2()<\/code> ou <code>binom.test()<\/code> doit constituer un automatisme m\u00e9thodologique imp\u00e9ratif.<\/li>\n<li><strong>L&rsquo;inclusion illicite de donn\u00e9es d&rsquo;attrition non appari\u00e9es :<\/strong> Conserver des sujets n&rsquo;ayant renseign\u00e9 qu&rsquo;un seul des deux temps d&rsquo;\u00e9valuation en codant la mesure manquante par une modalit\u00e9 arbitraire alt\u00e8re la nature m\u00eame de l&rsquo;appariement. Les proc\u00e9dures de suppression par liste (<em>complete cases<\/em>) doivent \u00eatre strictement appliqu\u00e9es avant toute instanciation matricielle.<\/li>\n<\/ul>\n<p>La vigilance face \u00e0 ces sources de distorsion m\u00e9thodologique conditionne la validit\u00e9 \u00e9cologique des r\u00e9sultats et pr\u00e9serve l&rsquo;int\u00e9grit\u00e9 de la d\u00e9marche de recherche empirique.<\/p>\n<h3>12.3 Synth\u00e8se proc\u00e9durale et flux de d\u00e9cision pour le chercheur<\/h3>\n<p>Pour guider le chercheur \u00e0 travers l&rsquo;ensemble des ramifications statistiques pr\u00e9sent\u00e9es au fil de ce trait\u00e9, le protocole d\u00e9cisionnel s\u00e9quentiel suivant r\u00e9sume les choix informatiques optimaux \u00e0 op\u00e9rer au sein de l&rsquo;environnement R :<\/p>\n<ul>\n<li><strong>\u00c9tape 1 : D\u00e9finition dimensionnelle des donn\u00e9es<\/strong>\n<ul>\n<li>Variable binaire appari\u00e9e \u00e0 2 modalit\u00e9s : Poursuivre vers l&rsquo;\u00c9tape 2.<\/li>\n<li>Variable multinomiale ou polytomique appari\u00e9e \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"K ge 3\">$K ge 3$<\/span> modalit\u00e9s : S&rsquo;orienter vers le test de sym\u00e9trie de Bowker (<code>mcnemar.test(matrice_KxK)<\/code>) assorti de d\u00e9compositions post-hoc corrig\u00e9es via <code>p.adjust()<\/code>.<\/li>\n<\/ul>\n<\/li>\n<li><strong>\u00c9tape 2 : Quantification du volume discordant effectif<\/strong>\n<ul>\n<li>Calculer la somme des cellules de transition : <span class=\"arabpsy-math-inline\" data-latex=\"S_{\\text{disc}} = b + c\">$S_{\\text{disc}} = b + c$<\/span>.<\/li>\n<\/ul>\n<\/li>\n<li><strong>\u00c9tape 3 : S\u00e9lection de l&rsquo;algorithme d&rsquo;inf\u00e9rence sous R<\/strong>\n<ul>\n<li>Si $S_{text{disc}} < 25$ : S\u00e9lectionner imp\u00e9rativement le <strong>test exact<\/strong> au moyen du package <code>exact2x2<\/code> (<code>exact2x2(table, paired = TRUE)<\/code>) ou du test binomial natif (<code>binom.test(b, b + c, p = 0.5)<\/code>).<\/li>\n<li>Si <span class=\"arabpsy-math-inline\" data-latex=\"S_{\\text{disc}} ge 25\">$S_{\\text{disc}} ge 25$<\/span> : Ex\u00e9cuter le <strong>test asymptotique de McNemar sans correction de continuit\u00e9<\/strong> (<code>mcnemar.test(table, correct = FALSE)<\/code>) afin de pr\u00e9server la puissance statistique maximale du protocole exp\u00e9rimental.<\/li>\n<\/ul>\n<\/li>\n<li><strong>\u00c9tape 4 : M\u00e9trologie de la taille d&rsquo;effet<\/strong>\n<ul>\n<li>Calculer syst\u00e9matiquement le rapport de cotes appari\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"OR = b\/c\">$OR = b\/c$<\/span>) et son intervalle de confiance \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"95%\">$95%$<\/span>.<\/li>\n<li>Rapporter la diff\u00e9rence absolue des proportions marginales (<span class=\"arabpsy-math-inline\" data-latex=\"\\Delta p = (b - c)\/N\">$\\Delta p = (b &#8211; c)\/N$<\/span>) et le coefficient <span class=\"arabpsy-math-inline\" data-latex=\"g\">$g$<\/span> de Cohen (<span class=\"arabpsy-math-inline\" data-latex=\"g = |b\/(b + c) - 0.5|\">$g = |b\/(b + c) &#8211; 0.5|$<\/span>).<\/li>\n<\/ul>\n<\/li>\n<li><strong>\u00c9tape 5 : Visualisation et publication normalis\u00e9e<\/strong>\n<ul>\n<li>G\u00e9n\u00e9rer un diagramme alluvial (<code>ggalluvial<\/code>) ou une mosa\u00efque ombr\u00e9e (<code>vcd::mosaic<\/code>) pour la restitution visuelle.<\/li>\n<li>R\u00e9diger le paragraphe de synth\u00e8se selon les standards stricts de l&rsquo;APA 7e \u00e9dition.<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<p>En observant rigoureusement cette cha\u00eene d&rsquo;op\u00e9rations m\u00e9thodologiques et computationnelles, les chercheurs en psychologie, psychiatrie et sciences comportementales disposent d&rsquo;un cadre d&rsquo;analyse d&rsquo;une robustesse math\u00e9matique irr\u00e9prochable, conf\u00e9rant \u00e0 leurs investigations longitudinales la port\u00e9e et la pr\u00e9cision requises par la science contemporaine.<\/p>\n<h2>R\u00e9f\u00e9rences<\/h2>\n<ul>\n<li>Benjamini, Y., &amp; Hochberg, Y. (1995). Controlling the false discovery rate: A practical and powerful approach to multiple testing. <em>Journal of the Royal Statistical Society: Series B (Methodological)<\/em>, 57(1), 289\u2013300. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1111\/j.2517-6161.1995.tb02031.x\">https:\/\/doi.org\/10.1111\/j.2517-6161.1995.tb02031.x<\/a><\/li>\n<li>Blaker, H. (2000). Confidence curves and improved exact confidence intervals for discrete distributions. <em>The Canadian Journal of Statistics \/ La Revue Canadienne de Statistique<\/em>, 28(4), 783\u2013798. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.2307\/3315916\">https:\/\/doi.org\/10.2307\/3315916<\/a><\/li>\n<li>Bowker, A. H. (1948). A test for symmetry in contingency tables. <em>Journal of the American Statistical Association<\/em>, 43(244), 572\u2013574. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1080\/01621459.1948.10483284\">https:\/\/doi.org\/10.1080\/01621459.1948.10483284<\/a><\/li>\n<li>Cohen, J. (1988). <em>Statistical power analysis for the behavioral sciences<\/em> (2e \u00e9d.). Lawrence Erlbaum Associates.<\/li>\n<li>Fay, M. P. (2010). Two-sided exact tests and matching confidence intervals for discrete data: The exact2x2 and exactci packages in R. <em>R Journal<\/em>, 2(1), 53\u201358. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.32614\/RJ-2010-008\">https:\/\/doi.org\/10.32614\/RJ-2010-008<\/a><\/li>\n<li>McNemar, Q. (1947). Note on the sampling error of the difference between correlated proportions or percentages. <em>Psychometrika<\/em>, 12(2), 153\u2013157. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/BF02295996\">https:\/\/doi.org\/10.1007\/BF02295996<\/a><\/li>\n<li>Newcombe, R. G. (1998). Improved confidence intervals for the difference between binomial proportions based on paired data. <em>Statistics in Medicine<\/em>, 17(22), 2635\u20132650. <a https:\/\/doi.org\/10.1080\/14786440009463897\" rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1002\/(sici)1097-0258(19981130)17:222635::aid-sim9553.0.co;2-c\u00a0\u00bbhttps:\/\/doi.org\/10.1002\/(sici)1097-0258(19981130)17:22&lt;2635::aid-sim955&gt;3.0.co;2-c\/a\/liliPearson,%20K.%20(1900).%20On%20the%20criterion%20that%20a%20given%20system%20of%20deviations%20from%20the%20probable%20in%20the%20case%20of%20a%20correlated%20system%20of%20variables%20is%20such%20that%20it%20can%20be%20reasonably%20supposed%20to%20have%20arisen%20from%20random%20sampling.%20emThe%20London,%20Edinburgh,%20and%20Dublin%20Philosophical%20Magazine%20and%20Journal%20of%20Science\/em,%2050(302),%20157\u2013175.%20a%20href=\">https:\/\/doi.org\/10.1080\/14786440009463897<\/a><\/li>\n<li>R Core Team. (2023). <em>R: A language and environment for statistical computing<\/em>. R Foundation for Statistical Computing, Vienna, Austria. <a rel=\"noopener noreferrer\" href=\"https:\/\/www.R-project.org\/\">https:\/\/www.R-project.org\/<\/a><\/li>\n<li>Yates, F. (1934). Contingency tables involving small numbers and the <span class=\"arabpsy-math-inline\" data-latex=\"\\chi^2\">$\\chi^2$<\/span> test. <em>Supplement to the Journal of the Royal Statistical Society<\/em>, 1(2), 217\u2013235. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.2307\/2983604\">https:\/\/doi.org\/10.2307\/2983604<\/a><\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>Guide acad\u00e9mique complet pour r\u00e9aliser, interpr\u00e9ter et rapporter le test de McNemar dans R pour l&rsquo;analyse des donn\u00e9es appari\u00e9es en recherche psychologique.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","template":"","categories":[1829,2169],"tags":[4713,2428,2658,1942,4263],"class_list":["post-2657","psych_stat","type-psych_stat","status-publish","hentry","category-methodologie-statistique","category-psychologie-quantitative","tag-donnees-categorielles","tag-mesures-repetees","tag-r","tag-statistiques-en-psychologie","tag-test-de-mcnemar"],"_links":{"self":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/2657","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat"}],"about":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/types\/psych_stat"}],"author":[{"embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2657"}],"version-history":[{"count":0,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/2657\/revisions"}],"wp:attachment":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2657"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2657"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2657"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}