{"id":5645,"date":"2026-09-11T23:47:18","date_gmt":"2026-09-11T23:47:18","guid":{"rendered":"http:\/\/french.arabpsychology.com\/statistics\/comment-calculer-statistiques-levier-dans-r\/"},"modified":"2026-09-11T23:47:20","modified_gmt":"2026-09-11T23:47:20","slug":"comment-calculer-statistiques-levier-dans-r","status":"publish","type":"psych_stat","link":"https:\/\/french.arabpsychology.com\/?psych_stat=comment-calculer-statistiques-levier-dans-r","title":{"rendered":"Comment calculer les statistiques de levier dans R"},"content":{"rendered":"<p>L&rsquo;estimation des mod\u00e8les de r\u00e9gression lin\u00e9aire par la m\u00e9thode des moindres carr\u00e9s ordinaires repose sur un ensemble d&rsquo;hypoth\u00e8ses classiques formalis\u00e9es dans le cadre du th\u00e9or\u00e8me de Gauss-Markov. Dans la pratique de la recherche quantitative et de l&rsquo;\u00e9conom\u00e9trie appliqu\u00e9e, ces conditions id\u00e9ales sont fr\u00e9quemment compromises par la structure sous-jacente des donn\u00e9es empiriques. Parmi les perturbations structurelles les plus insidieuses figure la pr\u00e9sence d&rsquo;observations atypiques situ\u00e9es \u00e0 la p\u00e9riph\u00e9rie de l&rsquo;espace multidimensionnel des variables explicatives. Ces observations, qualifi\u00e9es de points \u00e0 fort levier (<em>leverage points<\/em>), disposent du potentiel g\u00e9om\u00e9trique d&rsquo;attirer disproportionnellement l&rsquo;hyperplan de r\u00e9gression vers leur propre position, faussant ainsi l&rsquo;estimation des coefficients vectoriels et r\u00e9duisant la validit\u00e9 pr\u00e9dictive du mod\u00e8le.<\/p>\n<p>Le diagnostic statistique moderne ne peut se contenter d&rsquo;un simple examen superficiel des r\u00e9sidus bruts. En effet, un point exer\u00e7ant un effet de levier extr\u00eame peut modifier l&rsquo;orientation de l&rsquo;hyperplan ajust\u00e9 au point de g\u00e9n\u00e9rer un r\u00e9sidu r\u00e9siduel artificiellement faible, masquant ainsi son impact d\u00e9stabilisateur aux yeux des analyses univari\u00e9es na\u00efves. C&rsquo;est pr\u00e9cis\u00e9ment pour rem\u00e9dier \u00e0 ce ph\u00e9nom\u00e8ne de masquage qu&rsquo;intervient l&rsquo;analyse syst\u00e9matique de la matrice de projection orthogonale, commun\u00e9ment appel\u00e9e \u00ab matrice chapeau \u00bb (<em>hat matrix<\/em>). L&rsquo;environnement de calcul statistique <a rel=\"noopener noreferrer\" href=\"https:\/\/www.r-project.org\/\">R<\/a> offre un arsenal d&rsquo;outils matriciels et de fonctions vectorielles hautement optimis\u00e9es permettant d&rsquo;extraire, de quantifier et de diss\u00e9quer ces m\u00e9triques de levier avec une rigueur math\u00e9matique absolue.<\/p>\n<p>Le pr\u00e9sent article constitue une monographie m\u00e9thodologique int\u00e9grale d\u00e9di\u00e9e \u00e0 l&rsquo;\u00e9valuation, au calcul et \u00e0 l&rsquo;interpr\u00e9tation des statistiques de levier dans le langage de programmation statistique R. \u00c0 travers un parcours analytique exhaustif allant de la d\u00e9rivation alg\u00e9brique pure jusqu&rsquo;au d\u00e9ploiement de pipelines diagnostiques contemporains au sein de l&rsquo;\u00e9cosyst\u00e8me Tidyverse, nous explorerons les implications th\u00e9oriques, g\u00e9om\u00e9triques et computationnelles de cette statistique fondamentale. Que vous soyez biostatisticien, \u00e9conom\u00e8tre ou chercheur en sciences sociales computationnelles, ce guide vous fournira le socle conceptuel et algorithmique indispensable pour garantir l&rsquo;int\u00e9grit\u00e9 de vos inf\u00e9rences param\u00e9triques.<\/p>\n<h2>1. Fondements th\u00e9oriques de l&rsquo;effet de levier en r\u00e9gression lin\u00e9aire<\/h2>\n<h3>1.1 D\u00e9finition math\u00e9matique de la matrice de projection chapeau<\/h3>\n<p>L&rsquo;architecture alg\u00e9brique de la r\u00e9gression lin\u00e9aire multivari\u00e9e s&rsquo;articule autour de la relation lin\u00e9aire classique reliant un vecteur de r\u00e9ponse quantitative \u00e0 une matrice de pr\u00e9dicteurs. Soit un vecteur colonne <strong>y<\/strong> de dimension <em>n<\/em> \u00d7 1 repr\u00e9sentant les observations de la variable d\u00e9pendante, et une matrice <strong>X<\/strong> de dimension <em>n<\/em> \u00d7 <em>p<\/em> contenant les r\u00e9alisations de <em>p<\/em> pr\u00e9dicteurs (incluant usuellement un vecteur unitaire mod\u00e9lisant l&rsquo;ordonn\u00e9e \u00e0 l&rsquo;origine). Le mod\u00e8le lin\u00e9aire s&rsquo;\u00e9crit sous forme matricielle <strong>y<\/strong> = <strong>X<\/strong>\u03b2 + \u03b5, o\u00f9 \u03b2 est le vecteur des param\u00e8tres de dimension <em>p<\/em> \u00d7 1 et \u03b5 repr\u00e9sente le vecteur des erreurs stochastiques non observables. L&rsquo;estimateur des moindres carr\u00e9s ordinaires du vecteur des coefficients, not\u00e9 \u03b2\u0302, est d\u00e9termin\u00e9 en minimisant la somme des carr\u00e9s des r\u00e9sidus, aboutissant \u00e0 l&rsquo;\u00e9quation canonique \u03b2\u0302 = (<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup><strong>y<\/strong>, sous r\u00e9serve que la matrice de Gram <strong>X<\/strong><sup>T<\/sup><strong>X<\/strong> soit d&rsquo;ordre plein et donc inversible.<\/p>\n<p>En substituant cet estimateur dans l&rsquo;expression des valeurs pr\u00e9dites (ou ajust\u00e9es) <strong>\u0177<\/strong> = <strong>X<\/strong>\u03b2\u0302, il appara\u00eet une transformation lin\u00e9aire directe liant les valeurs observ\u00e9es aux valeurs ajust\u00e9es : <strong>\u0177<\/strong> = <strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup><strong>y<\/strong>. L&rsquo;op\u00e9rateur matriciel lin\u00e9aire <strong>H<\/strong> = <strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup> est universellement d\u00e9sign\u00e9 sous le vocable de matrice chapeau (<em>hat matrix<\/em>), pr\u00e9cis\u00e9ment parce qu&rsquo;il \u00ab coiffe \u00bb le vecteur <strong>y<\/strong> pour produire <strong>\u0177<\/strong>. Cette matrice d&rsquo;ordre <em>n<\/em> \u00d7 <em>n<\/em> est l&rsquo;op\u00e9rateur de projection orthogonale qui projette le vecteur d&rsquo;observations <strong>y<\/strong> de l&rsquo;espace euclidien \u211d<sup><em>n<\/em><\/sup> sur le sous-espace vectoriel de dimension <em>p<\/em> engendr\u00e9 par les colonnes de la matrice <strong>X<\/strong>.<\/p>\n<p>Deux propri\u00e9t\u00e9s alg\u00e9briques fondamentales caract\u00e9risent la matrice chapeau : la sym\u00e9trie et l&rsquo;idempotence. La sym\u00e9trie d\u00e9coule imm\u00e9diatement de sa d\u00e9finition : <strong>H<\/strong><sup>T<\/sup> = [<strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup>]<sup>T<\/sup> = <strong>X<\/strong>[(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup>]<sup>T<\/sup><strong>X<\/strong><sup>T<\/sup> = <strong>H<\/strong>. L&rsquo;idempotence implique que l&rsquo;application r\u00e9p\u00e9t\u00e9e de la projection n&rsquo;alt\u00e8re pas le r\u00e9sultat obtenu d\u00e8s la premi\u00e8re it\u00e9ration : <strong>H<\/strong><sup>2<\/sup> = <strong>H<\/strong><strong>H<\/strong> = <strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup> = <strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup> = <strong>H<\/strong>. Ces propri\u00e9t\u00e9s structurelles imposent des contraintes rigides sur les \u00e9l\u00e9ments diagonaux <em>h<sub>ii<\/sub><\/em> de la matrice. \u00c9tant donn\u00e9 que <strong>H<\/strong> est sym\u00e9trique et idempotente, chaque \u00e9l\u00e9ment diagonal s&rsquo;exprime comme la somme des carr\u00e9s des \u00e9l\u00e9ments de la <em>i<\/em>-\u00e8me ligne : <em>h<sub>ii<\/sub><\/em> = \u2211<sub><em>j<\/em><\/sub> <em>h<sub>ij<\/sub><\/em><sup>2<\/sup> = <em>h<sub>ii<\/sub><\/em><sup>2<\/sup> + \u2211<sub><em>j\u2260i<\/em><\/sub> <em>h<sub>ij<\/sub><\/em><sup>2<\/sup>. Il s&rsquo;ensuit math\u00e9matiquement que 0 \u2264 <em>h<sub>ii<\/sub><\/em> \u2264 1 pour toute observation <em>i<\/em>.<\/p>\n<p>L&rsquo;interpr\u00e9tation statistique des composantes diagonales <em>h<sub>ii<\/sub><\/em>, appel\u00e9es valeurs de levier (<em>leverage values<\/em> ou <em>hat values<\/em>), r\u00e9side dans leur \u00e9quivalence formelle \u00e0 une distance multivari\u00e9e standardis\u00e9e. Plus pr\u00e9cis\u00e9ment, <em>h<sub>ii<\/sub><\/em> mesure l&rsquo;\u00e9loignement de la <em>i<\/em>-\u00e8me observation par rapport au centro\u00efde des donn\u00e9es dans l&rsquo;espace multidimensionnel d\u00e9fini par les pr\u00e9dicteurs. Lorsque le mod\u00e8le contient une constante, on d\u00e9montre que <em>h<sub>ii<\/sub><\/em> = 1\/<em>n<\/em> + (<strong>x<\/strong><sub><em>i<\/em><\/sub> &#8211; <strong>x\u0304<\/strong>)<sup>T<\/sup>(<strong>X\u0303<\/strong><sup>T<\/sup><strong>X\u0303<\/strong>)<sup>-1<\/sup>(<strong>x<\/strong><sub><em>i<\/em><\/sub> &#8211; <strong>x\u0304<\/strong>), o\u00f9 <strong>x\u0304<\/strong> repr\u00e9sente le vecteur des moyennes des variables explicatives et <strong>X\u0303<\/strong> est la matrice des pr\u00e9dicteurs centr\u00e9s. Ce second terme n&rsquo;est autre qu&rsquo;une forme quadratique proportionnelle au carr\u00e9 de la <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Mahalanobis_distance\">distance de Mahalanobis<\/a>. Enfin, la trace de la matrice chapeau, qui est \u00e9gale \u00e0 la somme de ses valeurs propres, pr\u00e9sente un lien direct avec la dimensionnalit\u00e9 du mod\u00e8le : Tr(<strong>H<\/strong>) = Tr(<strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup>) = Tr((<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>) = Tr(<strong>I<\/strong><sub><em>p<\/em><\/sub>) = <em>p<\/em>. Par cons\u00e9quent, la somme des valeurs de levier pour l&rsquo;ensemble des <em>n<\/em> observations est strictement \u00e9gale au nombre de param\u00e8tres estim\u00e9s dans le mod\u00e8le de r\u00e9gression.<\/p>\n<h3>1.2 Importance du diagnostic de levier dans la recherche quantitative<\/h3>\n<p>L&rsquo;estimation par les moindres carr\u00e9s ordinaires poss\u00e8de une vuln\u00e9rabilit\u00e9 reconnue : elle minimise la norme euclidienne quadratique du vecteur r\u00e9siduel, ce qui conf\u00e8re un poids disproportionn\u00e9 aux observations situ\u00e9es aux marges de la distribution des donn\u00e9es. Dans ce contexte, les observations dot\u00e9es d&rsquo;une valeur de levier substantielle exercent une attraction m\u00e9canique consid\u00e9rable sur l&rsquo;hyperplan de r\u00e9gression. Si une observation poss\u00e8de une configuration de pr\u00e9dicteurs atypique, elle se comporte comme un point d&rsquo;appui rigide sur lequel la droite ou l&rsquo;hyperplan pivote pour minimiser la somme globale des r\u00e9sidus au carr\u00e9. Ce ph\u00e9nom\u00e8ne d&rsquo;ancrage alt\u00e8re potentiellement l&rsquo;estimation de l&rsquo;ensemble des coefficients vectoriels du mod\u00e8le.<\/p>\n<p>L&rsquo;impact d&rsquo;un levier \u00e9lev\u00e9 se manifeste de mani\u00e8re tout aussi critique sur l&rsquo;estimation de la variance d&rsquo;\u00e9chantillonnage des coefficients. La variance th\u00e9orique de la valeur pr\u00e9dite pour la <em>i<\/em>-\u00e8me observation est donn\u00e9e par Var(<em>\u0177<sub>i<\/sub><\/em>) = \u03c3<sup>2<\/sup><em>h<sub>ii<\/sub><\/em>, o\u00f9 \u03c3<sup>2<\/sup> est la variance intrins\u00e8que du terme d&rsquo;erreur stochastique. R\u00e9ciproquement, la variance du r\u00e9sidu estim\u00e9 <em>e<sub>i<\/sub><\/em> = <em>y<sub>i<\/sub><\/em> &#8211; <em>\u0177<sub>i<\/sub><\/em> s&rsquo;exprime par Var(<em>e<sub>i<\/sub><\/em>) = \u03c3<sup>2<\/sup>(1 &#8211; <em>h<sub>ii<\/sub><\/em>). Cette derni\u00e8re relation r\u00e9v\u00e8le un paradoxe fondamental : plus le levier <em>h<sub>ii<\/sub><\/em> d&rsquo;une observation tend vers l&rsquo;unit\u00e9, plus la variance de son r\u00e9sidu r\u00e9siduel se rapproche de z\u00e9ro. En termes concrets, un point dot\u00e9 d&rsquo;un tr\u00e8s fort levier \u00ab force \u00bb le mod\u00e8le \u00e0 passer extr\u00eamement pr\u00e8s de lui, ce qui comprime artificiellement son r\u00e9sidu brut et donne l&rsquo;illusion trompeuse d&rsquo;un ajustement parfait en ce point singulier.<\/p>\n<p>Cette distorsion de la variance r\u00e9siduelle compromet directement la puissance statistique des tests d&rsquo;hypoth\u00e8ses multivari\u00e9s. Les erreurs types des coefficients estim\u00e9s deviennent instables lorsque des points de fort levier d\u00e9stabilisent la matrice de covariance. Par cons\u00e9quent, les statistiques de test de Student (<em>t<\/em>-tests) et de Fisher-Snedecor (<em>F<\/em>-tests) peuvent \u00eatre fauss\u00e9es, g\u00e9n\u00e9rant soit des erreurs d&rsquo;inf\u00e9rence de type I (rejet \u00e0 tort de l&rsquo;hypoth\u00e8se nulle d&rsquo;absence d&rsquo;effet), soit des erreurs de type II (incapacit\u00e9 \u00e0 d\u00e9tecter un effet r\u00e9el en raison d&rsquo;un \u00e9largissement artificiel de l&rsquo;intervalle de confiance). La validit\u00e9 interne du mod\u00e8le s&rsquo;en trouve s\u00e9v\u00e8rement d\u00e9grad\u00e9e, car les conclusions scientifiques tir\u00e9es de l&rsquo;analyse d\u00e9pendent alors de la pr\u00e9sence contingente de quelques entit\u00e9s observationnelles marginales.<\/p>\n<p>Dans les applications pr\u00e9dictives, le danger est tout aussi prononc\u00e9. Un mod\u00e8le de r\u00e9gression param\u00e9tr\u00e9 sous l&rsquo;influence excessive d&rsquo;observations \u00e0 fort levier pr\u00e9sentera une capacit\u00e9 de g\u00e9n\u00e9ralisation m\u00e9diocre lors de son d\u00e9ploiement sur de nouvelles donn\u00e9es ind\u00e9pendantes. L&rsquo;hyperplan ayant \u00e9t\u00e9 inclin\u00e9 pour accommoder des anomalies g\u00e9om\u00e9triques propres \u00e0 l&rsquo;\u00e9chantillon d&rsquo;apprentissage, l&rsquo;erreur de pr\u00e9diction quadratique moyenne augmentera de fa\u00e7on drastique sur des \u00e9chantillons de validation. Ainsi, l&rsquo;identification m\u00e9thodique et le traitement raisonn\u00e9 des valeurs de levier constituent un pr\u00e9requis indispensable \u00e0 toute mod\u00e9lisation quantitative robuste, garantissant la reproductibilit\u00e9 et la stabilit\u00e9 des conclusions scientifiques.<\/p>\n<h2>2. Distinction conceptuelle : Valeurs aberrantes, levier et points d&rsquo;influence<\/h2>\n<h3>2.1 Diff\u00e9renciation spatiale entre l&rsquo;espace des pr\u00e9dicteurs et la variable r\u00e9ponse<\/h3>\n<p>L&rsquo;une des confusions les plus r\u00e9currentes dans l&rsquo;application des diagnostics de r\u00e9gression r\u00e9side dans l&rsquo;assimilation h\u00e2tive entre valeur aberrante (<em>outlier<\/em>), point de levier (<em>leverage point<\/em>) et point d&rsquo;influence (<em>influential point<\/em>). Pour dissiper toute ambigu\u00eft\u00e9 \u00e9pist\u00e9mologique, il convient d&rsquo;adopter une perspective g\u00e9om\u00e9trique qui s\u00e9pare rigoureusement l&rsquo;espace vectoriel des covariables explicatives de la droite r\u00e9elle occup\u00e9e par la variable d\u00e9pendante. Une valeur aberrante se d\u00e9finit formellement comme une observation dont la valeur observ\u00e9e <em>y<sub>i<\/sub><\/em> s&rsquo;\u00e9carte substantiellement de la tendance g\u00e9n\u00e9rale pr\u00e9dite par le mod\u00e8le. Il s&rsquo;agit d&rsquo;une discordance observ\u00e9e selon l&rsquo;axe orthogonal \u00e0 l&rsquo;hyperplan de r\u00e9gression, mat\u00e9rialis\u00e9e par un r\u00e9sidu statistique de magnitude exceptionnellement \u00e9lev\u00e9e, ind\u00e9pendamment de la position occup\u00e9e par l&rsquo;observation dans l&rsquo;espace des pr\u00e9dicteurs.<\/p>\n<p>\u00c0 l&rsquo;inverse, l&rsquo;effet de levier constitue une propri\u00e9t\u00e9 g\u00e9om\u00e9trique confin\u00e9e de mani\u00e8re exclusive \u00e0 l&rsquo;espace multidimensionnel des pr\u00e9dicteurs (l&rsquo;espace <strong>X<\/strong>). Une observation pr\u00e9sente un fort levier si son profil de covariables est singulier, c&rsquo;est-\u00e0-dire si elle se trouve isol\u00e9e dans les confins de la distribution conjointe des pr\u00e9dicteurs, \u00e0 une distance substantielle du centro\u00efde de l&rsquo;\u00e9chantillon. Cette singularit\u00e9 est quantifi\u00e9e sans jamais faire r\u00e9f\u00e9rence \u00e0 la variable d\u00e9pendante <em>y<\/em>. En effet, la formule <strong>H<\/strong> = <strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup> d\u00e9montre que le calcul des <em>h<sub>ii<\/sub><\/em> est enti\u00e8rement aveugle aux r\u00e9alisations du vecteur <strong>y<\/strong>. Par cons\u00e9quent, une observation peut pr\u00e9senter un levier titanesque tout en se situant exactement sur la trajectoire naturelle de l&rsquo;hyperplan de r\u00e9gression pr\u00e9dit par le reste de l&rsquo;\u00e9chantillon.<\/p>\n<p>L&rsquo;analyse conjointe de la magnitude r\u00e9siduelle et du degr\u00e9 de levier permet de d\u00e9gager une taxonomie op\u00e9rationnelle en quatre quadrants fondamentaux :<\/p>\n<ul>\n<li><strong>Observations standards :<\/strong> Faible levier et faible r\u00e9sidu. Ces points se situent au c\u0153ur de la distribution des variables explicatives et sont parfaitement conformes \u00e0 la dynamique relationnelle postul\u00e9e par le mod\u00e8le.<\/li>\n<li><strong>Valeurs aberrantes \u00e0 faible levier :<\/strong> Faible levier et r\u00e9sidu volumineux. L&rsquo;observation poss\u00e8de un profil de covariables banal, mais sa r\u00e9ponse <em>y<\/em> est atypique. Elle contribue \u00e0 gonfler la variance de l&rsquo;erreur r\u00e9siduelle globale sans pour autant d\u00e9placer l&rsquo;orientation g\u00e9n\u00e9rale de l&rsquo;hyperplan.<\/li>\n<li><strong>Points de levier bienveillants (ou conformes) :<\/strong> Fort levier et r\u00e9sidu quasi nul. L&rsquo;observation poss\u00e8de une configuration de pr\u00e9dicteurs extr\u00eame, mais sa r\u00e9ponse observ\u00e9e co\u00efncide remarquablement avec la pr\u00e9diction formul\u00e9e \u00e0 partir des autres points. Ces observations r\u00e9duisent artificiellement les erreurs types des coefficients estim\u00e9s et augmentent le coefficient de d\u00e9termination <em>R<\/em><sup>2<\/sup> sans d\u00e9former les pentes.<\/li>\n<li><strong>Points de levier discordants :<\/strong> Fort levier associ\u00e9 \u00e0 un r\u00e9sidu substantiel. Cette combinaison repr\u00e9sente la configuration la plus pathologique en mod\u00e9lisation lin\u00e9aire, g\u00e9n\u00e9rant une torsion disproportionn\u00e9e de la surface de r\u00e9gression.<\/li>\n<\/ul>\n<h3>2.2 M\u00e9canique de l&rsquo;influence globale et m\u00e9triques associ\u00e9es<\/h3>\n<p>L&rsquo;influence statistique d\u00e9signe le degr\u00e9 effectif par lequel les param\u00e8tres estim\u00e9s ou les pr\u00e9dictions du mod\u00e8le changent lorsque l&rsquo;observation sous analyse est omise du processus d&rsquo;estimation. L&rsquo;influence n&rsquo;est ni le levier pur, ni l&rsquo;aberrance r\u00e9siduelle pure, mais plut\u00f4t le produit multiplicatif de ces deux composantes structurales. Math\u00e9matiquement, on peut concevoir l&rsquo;influence comme le produit : <em>Influence<\/em> \u2248 <em>Levier<\/em> \u00d7 <em>R\u00e9sidu<\/em>. Un point pr\u00e9sentant un levier extraordinaire mais un r\u00e9sidu nul n&rsquo;exerce qu&rsquo;une influence marginale sur l&rsquo;estimation ponctuelle des coefficients angulaires, car sa pr\u00e9sence ne fait que confirmer la pente existante. R\u00e9ciproquement, une valeur aberrante extr\u00eame situ\u00e9e au centro\u00efde des pr\u00e9dicteurs n&rsquo;exerce aucun levier g\u00e9om\u00e9trique ; elle modifie l&rsquo;ordonn\u00e9e \u00e0 l&rsquo;origine mais ne dispose d&rsquo;aucun bras de levier pour faire pivoter les pentes.<\/p>\n<p>Pour formaliser cette dynamique cin\u00e9matique, plusieurs m\u00e9triques synth\u00e9tiques ont \u00e9t\u00e9 d\u00e9velopp\u00e9es dans la litt\u00e9rature statistique. La plus c\u00e9l\u00e8bre est incontestablement la <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Cook%27s_distance\">distance de Cook<\/a>, formul\u00e9e par le statisticien am\u00e9ricain R. Dennis Cook en 1977. La distance de Cook pour la <em>i<\/em>-\u00e8me observation, not\u00e9e <em>D<sub>i<\/sub><\/em>, mesure la distance au carr\u00e9 globale entre le vecteur des pr\u00e9dictions calcul\u00e9 sur l&rsquo;\u00e9chantillon complet <strong>\u0177<\/strong> et le vecteur des pr\u00e9dictions <strong>\u0177<\/strong><sub>(<em>i<\/em>)<\/sub> obtenu apr\u00e8s l&rsquo;\u00e9limination de l&rsquo;observation <em>i<\/em>. Elle s&rsquo;exprime \u00e9l\u00e9gamment en combinant directement le r\u00e9sidu studentis\u00e9 interne <em>r<sub>i<\/sub><\/em> et le levier <em>h<sub>ii<\/sub><\/em> :<\/p>\n<p><em>D<sub>i<\/sub><\/em> = [<em>r<sub>i<\/sub><\/em><sup>2<\/sup> \/ <em>p<\/em>] \u00d7 [<em>h<sub>ii<\/sub><\/em> \/ (1 &#8211; <em>h<sub>ii<\/sub><\/em>)]<\/p>\n<p>Cette factorisation met en lumi\u00e8re le r\u00f4le d&rsquo;amplificateur jou\u00e9 par le levier : le terme <em>h<sub>ii<\/sub><\/em> \/ (1 &#8211; <em>h<sub>ii<\/sub><\/em>) cro\u00eet de mani\u00e8re hyperbolique au fur et \u00e0 mesure que <em>h<sub>ii<\/sub><\/em> s&rsquo;approche de sa borne sup\u00e9rieure unitaire. Parall\u00e8lement, des mesures d\u00e9compos\u00e9es comme les DFBETAS \u00e9valuent l&rsquo;alt\u00e9ration standardis\u00e9e inflig\u00e9e \u00e0 chaque coefficient de r\u00e9gression sp\u00e9cifique \u03b2<sub><em>j<\/em><\/sub> pris individuellement lors de l&rsquo;omission d&rsquo;une unit\u00e9 statistique. Il appara\u00eet que le levier exerce une action diff\u00e9rentielle marqu\u00e9e : les covariables dont les valeurs sont particuli\u00e8rement \u00e9loign\u00e9es du centre de gravit\u00e9 pour une observation donn\u00e9e verront leur coefficient angulaire respectif hautement perturb\u00e9, tandis que l&rsquo;ordonn\u00e9e \u00e0 l&rsquo;origine r\u00e9agira principalement \u00e0 la composante r\u00e9siduelle de cette observation. Ce m\u00e9canisme de d\u00e9stabilisation fragilise la reproductibilit\u00e9 empirique, car la r\u00e9plication de l&rsquo;\u00e9tude sur un \u00e9chantillon ind\u00e9pendant d\u00e9pourvu de ce point critique aboutira \u00e0 des conclusions th\u00e9oriques radicalement discordantes.<\/p>\n<h2>3. Pr\u00e9paration de l&rsquo;environnement R et ajustement du mod\u00e8le de r\u00e9gression<\/h2>\n<h3>3.1 Configuration des donn\u00e9es et v\u00e9rification des pr\u00e9requis<\/h3>\n<p>L&rsquo;ex\u00e9cution rigoureuse d&rsquo;un audit de levier dans R requiert une initialisation m\u00e9thodique de l&rsquo;environnement de calcul statistique. Avant d&rsquo;ex\u00e9cuter la moindre r\u00e9gression, il est imp\u00e9ratif d&rsquo;importer les donn\u00e9es \u00e0 l&rsquo;aide de commandes natives de base telles que <code>read.csv()<\/code> ou <code>read.table()<\/code>, tout en assurant une inspection structurelle int\u00e9grale via <code>str()<\/code>, <code>dim()<\/code> et <code>summary()<\/code>. L&rsquo;architecture des donn\u00e9es doit \u00eatre rigoureusement typ\u00e9e : les variables qualitatives doivent \u00eatre converties en facteurs formels via la fonction <code>factor()<\/code> ou <code>as.factor()<\/code>, car leur int\u00e9gration dans la matrice de mod\u00e9lisation <strong>X<\/strong> g\u00e9n\u00e9rera des variables indicatrices binaires (colonnes de contraste) qui modifient directement le rang de la matrice et la r\u00e9partition du levier.<\/p>\n<p>Le traitement des donn\u00e9es manquantes constitue une \u00e9tape pr\u00e9alable incontournable. Par d\u00e9faut, les fonctions d&rsquo;estimation de R appliquent l&rsquo;argument <code>na.action = na.omit<\/code>, ce qui \u00e9limine de facto les lignes pr\u00e9sentant au moins une valeur manquante. Cette suppression d&rsquo;enregistrements r\u00e9duit la taille de l&rsquo;\u00e9chantillon effectif <em>n<\/em>, modifiant m\u00e9caniquement le calcul du levier moyen th\u00e9orique. Il est donc recommand\u00e9 d&rsquo;isoler au pr\u00e9alable le sous-ensemble de donn\u00e9es complet via <code>na.omit()<\/code> ou d&rsquo;inspecter l&rsquo;attribut d&rsquo;omission du mod\u00e8le ajust\u00e9 pour garantir la stricte correspondance entre les indices des lignes du jeu de donn\u00e9es et les \u00e9l\u00e9ments du vecteur des statistiques de projection.<\/p>\n<p>Une analyse pr\u00e9liminaire de la distribution conjointe des pr\u00e9dicteurs num\u00e9riques s&rsquo;av\u00e8re indispensable. L&rsquo;\u00e9valuation de la dispersion et de l&rsquo;asym\u00e9trie s&rsquo;effectue au moyen de fonctions descriptives standard telles que <code>cov()<\/code>, <code>cor()<\/code>, ainsi que par le calcul des coefficients d&rsquo;asym\u00e9trie multivari\u00e9e. Des pr\u00e9dicteurs pr\u00e9sentant un \u00e9talement asym\u00e9trique s\u00e9v\u00e8re (par exemple des distributions log-normales de revenus ou de valorisations financi\u00e8res) g\u00e9n\u00e8rent quasi in\u00e9vitablement des points d&rsquo;ancrage g\u00e9om\u00e9triques dot\u00e9s d&rsquo;un tr\u00e8s fort levier. La question de la standardisation des pr\u00e9dicteurs se pose fr\u00e9quemment \u00e0 ce stade. Il est th\u00e9oriquement capital de souligner que la standardisation lin\u00e9aire des variables explicatives (centrage et r\u00e9duction par soustraction de la moyenne et division par l&rsquo;\u00e9cart-type) ne modifie absolument pas les valeurs de levier <em>h<sub>ii<\/sub><\/em>. En vertu des propri\u00e9t\u00e9s de projection de la matrice chapeau, celle-ci est invariante par toute transformation affine non singuli\u00e8re appliqu\u00e9e aux colonnes de <strong>X<\/strong>. Toutefois, la standardisation pr\u00e9alable facilite grandement la d\u00e9tection graphique des composantes isol\u00e9es \u00e0 l&rsquo;\u00e9chelle univari\u00e9e.<\/p>\n<h3>3.2 Ajustement du mod\u00e8le lin\u00e9aire par la fonction lm()<\/h3>\n<p>La mod\u00e9lisation de la relation lin\u00e9aire sous R repose sur la fonction canonique <code>lm()<\/code> (<em>linear models<\/em>). Cette routine algorithmique impl\u00e9mente une d\u00e9composition QR de la matrice des covariables <strong>X<\/strong>, garantissant une stabilit\u00e9 num\u00e9rique optimale face aux erreurs d&rsquo;arrondi et aux probl\u00e8mes de conditionnement matriciel qui p\u00e9naliseraient une inversion directe de la matrice de Gram. La syntaxe canonique s&rsquo;articule autour de l&rsquo;op\u00e9rateur tilde :<\/p>\n<p><code>modele_lineaire &lt;- lm(formule, data = donnees)<\/code><\/p>\n<p>o\u00f9 la formule sp\u00e9cifie la structure fonctionnelle de l&rsquo;\u00e9quation, par exemple <code>y ~ x1 + x2 + x3<\/code>. L&rsquo;assignation du r\u00e9sultat \u00e0 un objet nomm\u00e9 de classe <code>lm<\/code> permet de pr\u00e9server l&rsquo;ensemble des m\u00e9tadonn\u00e9es math\u00e9matiques issues de l&rsquo;ajustement, y compris la matrice triangulaire sup\u00e9rieure de la factorisation QR, le rang effectif du syst\u00e8me lin\u00e9aire, les coefficients estim\u00e9s, les valeurs pr\u00e9dites et les r\u00e9sidus bruts.<\/p>\n<p>L&rsquo;extraction des composants primaires du mod\u00e8le s&rsquo;effectue au moyen de fonctions g\u00e9n\u00e9riques hautement optimis\u00e9es. La commande <code>coef(modele_lineaire)<\/code> extrait le vecteur des param\u00e8tres \u03b2\u0302. La fonction <code>residuals(modele_lineaire)<\/code> extrait le vecteur des r\u00e9sidus ordinaires <em>e<sub>i<\/sub><\/em>, tandis que <code>fitted(modele_lineaire)<\/code> r\u00e9cup\u00e8re les pr\u00e9dictions param\u00e9triques <em>\u0177<sub>i<\/sub><\/em>. L&rsquo;ex\u00e9cution de <code>summary(modele_lineaire)<\/code> produit une synth\u00e8se globale comprenant les erreurs types des estimateurs, les statistiques de Student associ\u00e9es \u00e0 chaque covariable, ainsi que l&rsquo;analyse de la variance r\u00e9siduelle traduite par l&rsquo;erreur type r\u00e9siduelle (<em>residual standard error<\/em>) et le coefficient de d\u00e9termination corrig\u00e9.<\/p>\n<p>L&rsquo;objet de classe <code>lm<\/code> encapsule l&rsquo;int\u00e9gralit\u00e9 de la g\u00e9om\u00e9trie de projection du mod\u00e8le. Il est capital de noter que cet objet n&rsquo;int\u00e8gre pas d&#8217;embl\u00e9e la totalit\u00e9 de la matrice chapeau <strong>n<\/strong> \u00d7 <strong>n<\/strong> en m\u00e9moire vive, car pour un \u00e9chantillon de 100 000 observations, le stockage d&rsquo;une telle matrice n\u00e9cessiterait plusieurs dizaines de gigaoctets de m\u00e9moire tampon. R adopte une strat\u00e9gie d&rsquo;\u00e9valuation paresseuse et algorithmique, ne calculant les composantes diagonales <em>h<sub>ii<\/sub><\/em> que sur demande explicite de l&rsquo;utilisateur \u00e0 partir des composantes de la d\u00e9composition QR pr\u00e9existante, assurant ainsi une l\u00e9g\u00e8ret\u00e9 d&rsquo;ex\u00e9cution remarquable.<\/p>\n<h2>4. Calcul direct des statistiques de levier avec la fonction hatvalues()<\/h2>\n<h3>4.1 Mise en \u0153uvre pratique de la commande hatvalues()<\/h3>\n<p>Pour calculer les statistiques de levier associ\u00e9es \u00e0 chaque unit\u00e9 statistique, le langage R met \u00e0 disposition la fonction d\u00e9di\u00e9e et optimis\u00e9e <code>hatvalues()<\/code>. Cette fonction appartient au package standard <code>stats<\/code>, automatiquement charg\u00e9 \u00e0 l&rsquo;initialisation de chaque session de travail. L&rsquo;extraction des statistiques de projection s&rsquo;effectue en transmettant simplement l&rsquo;objet de r\u00e9gression comme argument op\u00e9rationnel :<\/p>\n<p><code>valeurs_levier &lt;- hatvalues(modele_lineaire)<\/code><\/p>\n<p>L&rsquo;objet retourn\u00e9 est un vecteur num\u00e9rique nomm\u00e9, dont la dimension est strictement \u00e9gale au nombre d&rsquo;observations ayant contribu\u00e9 \u00e0 l&rsquo;ajustement lin\u00e9aire apr\u00e8s \u00e9limination des donn\u00e9es manquantes. Chaque \u00e9l\u00e9ment du vecteur porte pour nom l&rsquo;\u00e9tiquette de ligne correspondante dans le tableau de donn\u00e9es initial, ce qui \u00e9vite toute ambigu\u00eft\u00e9 d&rsquo;appariement.<\/p>\n<figure class=\"wpt-preserved-image\"><img fetchpriority=\"high\" decoding=\"async\" src=\"http:\/\/french.arabpsychology.com\/wp-content\/uploads\/2026\/09\/leverage1.png\" alt=\"leverage in R\" \/><figcaption>leverage in R<\/figcaption><\/figure>\n<p>D\u00e8s l&rsquo;obtention du vecteur des leviers, il convient de proc\u00e9der \u00e0 une validation quantitative de sa coh\u00e9rence structurelle. Le statisticien doit v\u00e9rifier que la longueur du vecteur correspond pr\u00e9cis\u00e9ment \u00e0 <em>n<\/em> (obtenu par <code>nobs(modele_lineaire)<\/code>). L&rsquo;examen descriptif univari\u00e9 s&rsquo;effectue au moyen des fonctions <code>min(valeurs_levier)<\/code>, <code>max(valeurs_levier)<\/code>, <code>mean(valeurs_levier)<\/code> et <code>quantile(valeurs_levier)<\/code>. On observera syst\u00e9matiquement que la moyenne empirique co\u00efncide \u00e0 la pr\u00e9cision machine pr\u00e8s avec le ratio th\u00e9orique <em>p<\/em>\/<em>n<\/em>, o\u00f9 <em>p<\/em> inclut la constante du mod\u00e8le. Si une observation pr\u00e9sente une valeur maximale approchant l&rsquo;unit\u00e9 (par exemple 0.95 ou davantage), l&rsquo;analyste se trouve imm\u00e9diatement alert\u00e9 de la pr\u00e9sence d&rsquo;une observation dont le potentiel de distorsion sur les coefficients est critique.<\/p>\n<p>L&rsquo;int\u00e9gration syst\u00e9matique du vecteur de levier dans le jeu de donn\u00e9es initial facilite les manipulations analytiques ult\u00e9rieures. Cette int\u00e9gration s&rsquo;ex\u00e9cute de mani\u00e8re \u00e9l\u00e9gante par assignation indic\u00e9e :<\/p>\n<p><code>donnees$leverage &lt;- hatvalues(modele_lineaire)<\/code><\/p>\n<p>Cette approche permet d&rsquo;appliquer imm\u00e9diatement des filtres logiques et des tris d\u00e9croissants sur le tableau de donn\u00e9es afin d&rsquo;isoler les entit\u00e9s pr\u00e9sentant les scores de levier les plus \u00e9lev\u00e9s et d&rsquo;examiner en d\u00e9tail les valeurs prises par leurs diff\u00e9rentes variables explicatives.<\/p>\n<h3>4.2 Comparaison m\u00e9thodologique avec les fonctions alternatives<\/h3>\n<p>Bien que la fonction <code>hatvalues()<\/code> constitue la m\u00e9thode d&rsquo;acc\u00e8s la plus directe et la plus fr\u00e9quemment pr\u00e9conis\u00e9e, l&rsquo;\u00e9cosyst\u00e8me de base de R dispose d&rsquo;autres fonctions capables de g\u00e9n\u00e9rer ou de contenir les statistiques de projection orthogonale. La plus notable est la fonction d&rsquo;infrastructure <code>lm.influence()<\/code>. Cette routine interne calcule les \u00e9l\u00e9ments fondamentaux n\u00e9cessaires \u00e0 l&rsquo;ensemble des diagnostics d&rsquo;influence. L&rsquo;ex\u00e9cution de l&rsquo;instruction :<\/p>\n<p><code>diagnostics_influence &lt;- lm.influence(modele_lineaire)<\/code><\/p>\n<p>g\u00e9n\u00e8re une structure de type liste contenant plusieurs matrices et vecteurs num\u00e9riques. Parmi ces composants figure la composante <code>diagnostics_influence$hat<\/code>, qui reproduit exactement le vecteur des valeurs de levier <em>h<sub>ii<\/sub><\/em>. De plus, <code>lm.influence()<\/code> extrait les r\u00e9sidus modifi\u00e9s par omission unitaire (<em>jackknife residuals<\/em>) ainsi que la matrice des variations de coefficients induites par la suppression s\u00e9quentielle de chaque observation (<code>coefficients<\/code>).<\/p>\n<p>Parall\u00e8lement, la fonction <code>influence.measures()<\/code> fournit une solution analytique globale cl\u00e9 en main. En appelant <code>influence.measures(modele_lineaire)<\/code>, R calcule simultan\u00e9ment les DFBETAS, les DFFITS, les ratios de covariance, les distances de Cook ainsi que les <code>hatvalues<\/code>. La fonction assemble ces m\u00e9triques dans un tableau synoptique exhaustif et applique automatiquement des r\u00e8gles heuristiques binaires marquant par un ast\u00e9risque les observations qui d\u00e9passent les seuils critiques conventionnels pour chaque m\u00e9trique respective. Cette sortie matricielle est particuli\u00e8rement pr\u00e9cieuse pour une inspection exploratoire rapide lors de la phase initiale d&rsquo;\u00e9valuation d&rsquo;un mod\u00e8le.<\/p>\n<p>Sur le plan des performances algorithmiques et de la gestion de la m\u00e9moire, des diff\u00e9rences techniques majeures existent entre ces alternatives. Pour des ensembles de donn\u00e9es de grande taille (comportant plusieurs dizaines ou centaines de milliers d&rsquo;observations), l&rsquo;appel de <code>influence.measures()<\/code> s&rsquo;av\u00e8re inutilement co\u00fbteux en temps processeur et en empreinte m\u00e9moire si le chercheur ne cherche \u00e0 obtenir que les \u00e9l\u00e9ments de projection g\u00e9om\u00e9trique. La fonction <code>hatvalues()<\/code> est hautement sp\u00e9cialis\u00e9e et fait directement appel \u00e0 du code compil\u00e9 en C ou Fortran exploitant la factorisation QR pr\u00e9existante, garantissant un temps de calcul n\u00e9gligeable. Des tests de coh\u00e9rence num\u00e9rique confirment que, sous r\u00e9serve des approximations arithm\u00e9tiques en virgule flottante, les sorties vectorielles issues de <code>hatvalues(m)<\/code>, <code>lm.influence(m)$hat<\/code> et de la colonne correspondante de <code>influence.measures(m)$infmat<\/code> sont strictement identiques.<\/p>\n<h2>5. D\u00e9rivation matricielle manuelle de la matrice chapeau dans R<\/h2>\n<h3>5.1 Construction algorithmique de la matrice des pr\u00e9dicteurs<\/h3>\n<p>Pour assimiler en profondeur la m\u00e9canique du levier statistique et comprendre le fonctionnement des routines de R, il est particuli\u00e8rement formateur de proc\u00e9der \u00e0 la d\u00e9rivation matricielle explicite de la matrice chapeau en \u00e9crivant soi-m\u00eame les \u00e9quations d&rsquo;alg\u00e8bre lin\u00e9aire. La premi\u00e8re \u00e9tape de cette d\u00e9marche algorithmique consiste \u00e0 construire la matrice de mod\u00e9lisation formelle <strong>X<\/strong>. Il ne suffit pas de combiner arbitrairement les pr\u00e9dicteurs au sein d&rsquo;un tableau de donn\u00e9es ; il faut extraire rigoureusement la matrice telle qu&rsquo;elle est interpr\u00e9t\u00e9e par le moteur math\u00e9matique de r\u00e9gression, en tenant compte du codage des contrastes factoriels et de l&rsquo;inclusion du terme constant.<\/p>\n<p>R fournit \u00e0 cet effet la fonction fondamentale <code>model.matrix()<\/code>, qui prend comme arguments la formule symbolique du mod\u00e8le et le jeu de donn\u00e9es sous-jacent :<\/p>\n<p><code>X &lt;- model.matrix(modele_lineaire)<\/code><\/p>\n<p>L&rsquo;inspection de cette matrice avec des commandes telles que <code>dim(X)<\/code> et <code>head(X)<\/code> permet de constater que sa premi\u00e8re colonne est invariablement constitu\u00e9e d&rsquo;une suite de valeurs unitaires (le vecteur colonne de uns mod\u00e9lisant l&rsquo;ordonn\u00e9e \u00e0 l&rsquo;origine, not\u00e9 <code>(Intercept)<\/code>), \u00e0 moins que la r\u00e9gression n&rsquo;ait \u00e9t\u00e9 explicitement param\u00e9tr\u00e9e sans constante via la syntaxe <code>y ~ 0 + x<\/code>. De plus, pour toute variable qualitative pr\u00e9sente dans la formule, <code>model.matrix()<\/code> g\u00e9n\u00e8re automatiquement les colonnes de variables indicatrices muettes (<em>dummy variables<\/em>) selon la param\u00e9trisation des contrastes par d\u00e9faut (g\u00e9n\u00e9ralement <code>contr.treatment<\/code>).<\/p>\n<p>Avant d&rsquo;engager des op\u00e9rations matricielles d&rsquo;inversion, il est indispensable de v\u00e9rifier le rang math\u00e9matique de <strong>X<\/strong> afin d&rsquo;\u00e9carter tout probl\u00e8me de collin\u00e9arit\u00e9 exacte (singularit\u00e9 matricielle). Cette v\u00e9rification s&rsquo;ex\u00e9cute par la fonction <code>qr(X)$rank<\/code>. Pour que l&rsquo;inversion de la matrice de Gram soit valide, le rang calcul\u00e9 doit \u00eatre strictement \u00e9gal au nombre total de colonnes <em>p<\/em>. Si le rang est inf\u00e9rieur \u00e0 <em>p<\/em>, la matrice est structurellement singuli\u00e8re, ce qui signale qu&rsquo;au moins une variable explicative est une combinaison lin\u00e9aire exacte d&rsquo;autres pr\u00e9dicteurs. R g\u00e8re nativement cette situation dans <code>lm()<\/code> en assignant des coefficients non d\u00e9finis (<code>NA<\/code>) aux colonnes redondantes, mais une tentative d&rsquo;inversion manuelle brute d\u00e9clencherait une interruption d&rsquo;ex\u00e9cution via une erreur d&rsquo;inversibilit\u00e9.<\/p>\n<h3>5.2 Calcul matriciel explicite des diagonales de projection<\/h3>\n<p>D\u00e8s lors que la matrice <strong>X<\/strong> est valid\u00e9e et de rang plein, le calcul alg\u00e9brique de la matrice de projection <strong>H<\/strong> = <strong>X<\/strong>(<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup><strong>X<\/strong><sup>T<\/sup> peut \u00eatre impl\u00e9ment\u00e9 manuellement. Dans le langage R, l&rsquo;op\u00e9rateur de multiplication matricielle est d\u00e9limit\u00e9 par des pourcentages : <code>%*%<\/code>. La transpos\u00e9e d&rsquo;une matrice s&rsquo;obtient au moyen de <code>t()<\/code>, et l&rsquo;inversion d&rsquo;une matrice carr\u00e9e s&rsquo;ex\u00e9cute \u00e0 l&rsquo;aide de <code>solve()<\/code>. Pour optimiser le produit matriciel sym\u00e9trique <strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>, il est fortement conseill\u00e9 d&rsquo;utiliser la fonction d\u00e9di\u00e9e <code>crossprod(X)<\/code>, qui calcule ce produit scalaire de mani\u00e8re substantiellement plus rapide et avec une meilleure pr\u00e9cision num\u00e9rique que l&rsquo;instruction na\u00efve <code>t(X) %*% X<\/code>.<\/p>\n<p>L&rsquo;op\u00e9ration matricielle globale peut ainsi \u00eatre formul\u00e9e comme suit :<\/p>\n<p><code>XtX_inv &lt;- solve(crossprod(X))<\/code><br \/>\n<code>H &lt;- X %*% XtX_inv %*% t(X)<\/code><\/p>\n<p>Cette commande g\u00e9n\u00e8re la matrice compl\u00e8te de projection <strong>H<\/strong> de dimension <em>n<\/em> \u00d7 <em>n<\/em>. L&rsquo;extraction des statistiques de levier individuelles <em>h<sub>ii<\/sub><\/em> s&rsquo;effectue ensuite en isolant la diagonale principale de cet op\u00e9rateur matriciel gr\u00e2ce \u00e0 la fonction <code>diag()<\/code> :<\/p>\n<p><code>levier_manuel &lt;- diag(H)<\/code><\/p>\n<p>La validation scientifique de ce calcul manuel se concr\u00e9tise en v\u00e9rifiant l&rsquo;\u00e9galit\u00e9 num\u00e9rique absolue avec les r\u00e9sultats issus de la fonction native <code>hatvalues()<\/code>. L&rsquo;utilisation de l&rsquo;op\u00e9rateur d&rsquo;\u00e9galit\u00e9 stricte <code>==<\/code> pouvant \u00eatre compromise par les erreurs infinit\u00e9simales d&rsquo;arrondi en virgule flottante, on utilise la fonction de validation formelle :<\/p>\n<p><code>all.equal(levier_manuel, hatvalues(modele_lineaire))<\/code><\/p>\n<p>Cette instruction renvoie la valeur bool\u00e9enne <code>TRUE<\/code>, confirmant que l&rsquo;extraction native de R correspond rigoureusement \u00e0 l&rsquo;application de la th\u00e9orie matricielle pure. Enfin, une d\u00e9monstration empirique fondamentale consiste \u00e0 calculer la somme de ces \u00e9l\u00e9ments diagonaux :<\/p>\n<p><code>sum(levier_manuel)<\/code><\/p>\n<p>Le r\u00e9sultat obtenu est rigoureusement \u00e9gal \u00e0 la valeur scalaire <em>p<\/em> (le nombre total de pr\u00e9dicteurs plus un pour l&rsquo;ordonn\u00e9e \u00e0 l&rsquo;origine). Cette v\u00e9rification confirme de fa\u00e7on tangible le th\u00e9or\u00e8me de la trace de la projection orthogonale, selon lequel la somme des degr\u00e9s de levier individuels \u00e9quivaut exactement \u00e0 la dimension du sous-espace d&rsquo;ajustement.<\/p>\n<h2>6. Seuils critiques et crit\u00e8res de d\u00e9cision statistique<\/h2>\n<h3>6.1 R\u00e8gles empiriques standards bas\u00e9es sur la moyenne th\u00e9orique<\/h3>\n<p>L&rsquo;obtention d&rsquo;un vecteur de valeurs de levier ne pr\u00e9sente d&rsquo;int\u00e9r\u00eat pratique que si l&rsquo;analyste dispose de r\u00e8gles de d\u00e9cision statistique objectives pour discriminer les observations ordinaires de celles exer\u00e7ant un ancrage disproportionn\u00e9. Puisque la somme de l&rsquo;ensemble des <em>h<sub>ii<\/sub><\/em> est invariablement \u00e9gale \u00e0 <em>p<\/em> pour un \u00e9chantillon de taille <em>n<\/em>, la valeur moyenne th\u00e9orique du levier au sein de la population \u00e9tudi\u00e9e est universellement d\u00e9finie par l&rsquo;esp\u00e9rance math\u00e9matique :<\/p>\n<p><em>h\u0304<\/em> = Tr(<strong>H<\/strong>) \/ <em>n<\/em> = <em>p<\/em> \/ <em>n<\/em><\/p>\n<p>o\u00f9 <em>p<\/em> repr\u00e9sente le nombre de param\u00e8tres estim\u00e9s dans l&rsquo;\u00e9quation de r\u00e9gression (incluant le terme d&rsquo;interception) et <em>n<\/em> est l&rsquo;effectif total de l&rsquo;\u00e9chantillon analys\u00e9. Cette moyenne constitue le point de rep\u00e8re invariable \u00e0 partir duquel s&rsquo;articulent l&rsquo;ensemble des r\u00e8gles de d\u00e9cision heuristiques.<\/p>\n<p>Dans la litt\u00e9rature m\u00e9thodologique, deux seuils empiriques ont acquis une pr\u00e9\u00e9minence classique. Le premier, qualifi\u00e9 de crit\u00e8re lib\u00e9ral, \u00e9tablit qu&rsquo;une observation doit \u00eatre consid\u00e9r\u00e9e comme un point de levier pr\u00e9occupant d\u00e8s lors que sa valeur de projection d\u00e9passe le double du levier moyen th\u00e9orique :<\/p>\n<p><em>Seuil lib\u00e9ral<\/em> = 2<em>p<\/em> \/ <em>n<\/em><\/p>\n<p>Ce seuil est largement recommand\u00e9 dans les phases exploratoires et pour les \u00e9chantillons de grande dimension, car il permet de d\u00e9tecter pr\u00e9cocement tout \u00e9loignement relatif vis-\u00e0-vis du centro\u00efde sans pour autant signaler un nombre d\u00e9raisonnable de faux positifs.<\/p>\n<p>Le second seuil, plus strict et conservateur, est formul\u00e9 par le triple de la moyenne th\u00e9orique :<\/p>\n<p><em>Seuil conservateur<\/em> = 3<em>p<\/em> \/ <em>n<\/em><\/p>\n<p>Ce seuil de 3<em>p<\/em>\/<em>n<\/em> est particuli\u00e8rement pr\u00e9conis\u00e9 dans les \u00e9tudes confirmatoires et les analyses \u00e9conom\u00e9triques exigeant un degr\u00e9 \u00e9lev\u00e9 de certitude avant d&rsquo;isoler ou de retraiter un point particulier. L&rsquo;analyste doit toutefois demeurer conscient de la sensibilit\u00e9 intrins\u00e8que de ces r\u00e8gles face \u00e0 la taille de l&rsquo;\u00e9chantillon. Pour des \u00e9chantillons de petite taille (par exemple <em>n<\/em> = 20 et <em>p<\/em> = 5), le seuil de 3<em>p<\/em>\/<em>n<\/em> atteint 0.75, ce qui est tr\u00e8s proche de la borne sup\u00e9rieure th\u00e9orique de 1, rendant le crit\u00e8re extr\u00eamement difficile \u00e0 franchir. R\u00e9ciproquement, pour des bases de donn\u00e9es massives (<em>n<\/em> = 100 000 et <em>p<\/em> = 10), la moyenne th\u00e9orique <em>p<\/em>\/<em>n<\/em> s&rsquo;\u00e9tablit \u00e0 0.0001 ; le seuil du double (0.0002) risque alors d&rsquo;isoler des milliers d&rsquo;observations dont la singularit\u00e9 spatiale n&rsquo;exerce en r\u00e9alit\u00e9 aucune influence d\u00e9l\u00e9t\u00e8re sur la stabilit\u00e9 des param\u00e8tres.<\/p>\n<h3>6.2 Crit\u00e8res avanc\u00e9s et distributions d&rsquo;\u00e9chantillonnage<\/h3>\n<p>Pour pallier les insuffisances des r\u00e8gles heuristiques simples en pr\u00e9sence d&rsquo;\u00e9chantillons de taille mod\u00e9r\u00e9e ou r\u00e9duite, David C. Hoaglin et Roy E. Welsch ont propos\u00e9 en 1978 une analyse approfondie de la distribution d&rsquo;\u00e9chantillonnage des \u00e9l\u00e9ments diagonaux de la matrice chapeau. Leurs travaux d\u00e9montrent que, sous l&rsquo;hypoth\u00e8se de normalit\u00e9 multivari\u00e9e des pr\u00e9dicteurs, les statistiques de levier <em>h<sub>ii<\/sub><\/em> suivent approximativement une distribution B\u00eata r\u00e9\u00e9chelonn\u00e9e. Dans cette configuration g\u00e9om\u00e9trique id\u00e9ale, Hoaglin et Welsch ont formellement \u00e9tabli que la r\u00e8gle de d\u00e9cision 2<em>p<\/em>\/<em>n<\/em> isole approximativement le centile sup\u00e9rieur \u00e0 95% de la distribution lorsque <em>n<\/em> &#8211; <em>p<\/em> &gt; 60, justifiant th\u00e9oriquement l&rsquo;usage de cette coupure comme un test formel d&rsquo;hypoth\u00e8se bilat\u00e9rale non param\u00e9trique.<\/p>\n<p>Pour les contextes o\u00f9 <em>n<\/em> est relativement proche de <em>p<\/em>, une r\u00e8gle de coupure plus rigide, souvent fix\u00e9e de mani\u00e8re absolue \u00e0 la valeur scalaire <em>h<sub>ii<\/sub><\/em> &gt; 0.5, est traditionnellement adopt\u00e9e. En effet, un levier exc\u00e9dant 0.5 conf\u00e8re \u00e0 l&rsquo;observation isol\u00e9e un poids sup\u00e9rieur \u00e0 celui de l&rsquo;ensemble combin\u00e9 de plusieurs dizaines d&rsquo;autres observations, ce qui viole le principe fondamental de repr\u00e9sentativit\u00e9 statistique collective sur lequel repose l&rsquo;inf\u00e9rence des moindres carr\u00e9s.<\/p>\n<p>L&rsquo;impl\u00e9mentation sous R d&rsquo;un algorithme d&rsquo;identification automatis\u00e9e des observations critiques franchissant ces seuils s&rsquo;av\u00e8re particuli\u00e8rement simple et \u00e9l\u00e9gante. Consid\u00e9rons l&rsquo;extrait de logique computationnelle suivant :<\/p>\n<p><code>p &lt;- length(coef(modele_lineaire))<\/code><br \/>\n<code>n &lt;- nobs(modele_lineaire)<\/code><br \/>\n<code>seuil_2p &lt;- 2 * p \/ n<\/code><br \/>\n<code>seuil_3p &lt;- 3 * p \/ n<\/code><br \/>\n<code>leviers &lt;- hatvalues(modele_lineaire)<\/code><br \/>\n<code>points_critiques_2p &lt;- which(leviers &gt; seuil_2p)<\/code><br \/>\n<code>points_critiques_3p &lt;- which(leviers &gt; seuil_3p)<\/code><\/p>\n<p>La cr\u00e9ation de variables indicatrices binaires enrichit le jeu de donn\u00e9es pour des filtrages conditionnels ult\u00e9rieurs :<\/p>\n<p><code>donnees$fort_levier &lt;- ifelse(leviers &gt; seuil_2p, TRUE, FALSE)<\/code><\/p>\n<p>Cette vectorisation logique permet non seulement d&rsquo;extraire instantan\u00e9ment la liste nominative des individus aberrants dans l&rsquo;espace des covariables via <code>rownames(donnees)[donnees$fort_levier]<\/code>, mais constitue \u00e9galement la base algorithmique indispensable pour g\u00e9n\u00e9rer des repr\u00e9sentations graphiques diagnostiques enrichies.<\/p>\n<h2>7. Visualisation graphique avanc\u00e9e des valeurs de levier<\/h2>\n<h3>7.1 Repr\u00e9sentations univari\u00e9es avec R base<\/h3>\n<p>L&rsquo;inspection tabulaire des statistiques de levier pr\u00e9sente des limites cognitives s\u00e9v\u00e8res d\u00e8s lors que la taille de l&rsquo;\u00e9chantillon exc\u00e8de quelques dizaines d&rsquo;unit\u00e9s. Le recours \u00e0 des visualisations diagnostiques constitue le moyen le plus efficace d&rsquo;appr\u00e9hender la morphologie spatiale des donn\u00e9es et d&rsquo;isoler visuellement les ruptures de continuit\u00e9. Le syst\u00e8me graphique natif de R (<em>R base graphics<\/em>) propose une suite d&rsquo;outils hautement performants pour mat\u00e9rialiser ces distributions sans requ\u00e9rir de d\u00e9pendances logicielles externes.<\/p>\n<p>La repr\u00e9sentation graphique canonique consiste \u00e0 tracer l&rsquo;indice s\u00e9quentiel des observations en abscisse et les valeurs de levier correspondantes en ordonn\u00e9e. Cette mise en \u0153uvre s&rsquo;articule autour de la fonction <code>plot()<\/code>, agr\u00e9ment\u00e9e de param\u00e8tres esth\u00e9tiques et d&rsquo;ajouts de lignes seuils :<\/p>\n<p><code>plot(leviers, type = \"h\", main = \"Diagnostic des valeurs de levier par observation\", xlab = \"Indice de l'observation\", ylab = \"Statistique de levier (h_ii)\", col = \"steelblue\", lwd = 1.5)<\/code><br \/>\n<code>points(leviers, pch = 19, cex = 0.6, col = \"darkblue\")<\/code><br \/>\n<code>abline(h = seuil_2p, col = \"orange\", lty = 2, lwd = 2)<\/code><br \/>\n<code>abline(h = seuil_3p, col = \"firebrick\", lty = 3, lwd = 2)<\/code><\/p>\n<p>Pour automatiser l&rsquo;\u00e9tiquetage des observations pathologiques sans encombrer la zone graphique, l&rsquo;analyste peut d\u00e9ployer la fonction <code>text()<\/code> coupl\u00e9e \u00e0 un pr\u00e9dicat d&rsquo;indexation conditionnelle :<\/p>\n<p><code>indices_atypiques &lt;- which(leviers &gt; seuil_2p)<\/code><br \/>\n<code>text(x = indices_atypiques, y = leviers[indices_atypiques], labels = names(indices_atypiques), pos = 3, cex = 0.8, col = \"firebrick\")<\/code><\/p>\n<p>Au-del\u00e0 du diagramme d&rsquo;indice s\u00e9quentiel, l&rsquo;analyse univari\u00e9e de la distribution empirique du vecteur de levier requiert la g\u00e9n\u00e9ration d&rsquo;histogrammes de fr\u00e9quence et de bo\u00eetes \u00e0 moustaches (<em>boxplots<\/em>). L&rsquo;ex\u00e9cution de <code>hist(leviers, breaks = 30, col = \"lavender\", main = \"Distribution de densite du levier\", xlab = \"h_ii\")<\/code> permet d&rsquo;objectiver l&rsquo;asym\u00e9trie positive typique de ces distributions, o\u00f9 une vaste majorit\u00e9 d&rsquo;observations s&rsquo;agglutine \u00e0 proximit\u00e9 imm\u00e9diate de 0, tandis qu&rsquo;une tra\u00eene \u00e9troite s&rsquo;\u00e9tend vers les valeurs sup\u00e9rieures. La bo\u00eete \u00e0 moustaches produite via <code>boxplot(leviers, horizontal = TRUE, col = \"lightcyan\")<\/code> illustre quant \u00e0 elle la dispersion interquartile et isole visuellement les points franchissant la cl\u00f4ture externe de Tukey (1.5 fois l&rsquo;\u00e9cart interquartile au-del\u00e0 du troisi\u00e8me quartile).<\/p>\n<h3>7.2 Graphiques diagnostiques \u00e9labor\u00e9s avec ggplot2<\/h3>\n<p>Pour satisfaire aux exigences typographiques et esth\u00e9tiques contemporaines des publications scientifiques, le package <code>ggplot2<\/code> offre une flexibilit\u00e9 graphique sans \u00e9quivalent. Gr\u00e2ce au concept de grammaire des graphiques, l&rsquo;analyste peut composer des repr\u00e9sentations \u00e9labor\u00e9es, telles que le trac\u00e9 de type \u00ab sucette \u00bb (<em>lollipop chart<\/em>), qui allie la pr\u00e9cision de lecture d&rsquo;une tige segmentaire \u00e0 la clart\u00e9 d&rsquo;un point focal.<\/p>\n<p>Pour concevoir une telle visualisation, le jeu de donn\u00e9es sous-jacent est pr\u00e9alablement enrichi des identifiants et des m\u00e9triques seuils. Le pipeline logique s&rsquo;articule comme suit :<\/p>\n<p><code>library(ggplot2)<\/code><br \/>\n<code>library(ggrepel)<\/code><br \/>\n<code>df_diag &lt;- data.frame(id = seq_along(leviers), leverage = leviers, etiquette = rownames(donnees))<\/code><br \/>\n<code>df_diag<span class=\"arabpsy-math-inline\" data-latex=\"statut &lt;- ifelse(df_diag\">$statut &lt;- ifelse(df_diag$<\/span>leverage &gt; seuil_3p, \"Critique (&gt;3p\/n)\", ifelse(df_diag$leverage &gt; seuil_2p, \"Attention (&gt;2p\/n)\", \"Normal\"))<\/code><\/p>\n<p>L&rsquo;assemblage des couches de donn\u00e9es, de g\u00e9om\u00e9tries et d&rsquo;\u00e9chelles de couleurs personnalis\u00e9es produit un graphique hautement informatif :<\/p>\n<p><code>ggplot(df_diag, aes(x = id, y = leverage)) +<\/code><br \/>\n<code>  geom_segment(aes(x = id, xend = id, y = 0, yend = leverage), color = \"gray70\") +<\/code><br \/>\n<code>  geom_point(aes(color = statut), size = 2) +<\/code><br \/>\n<code>  geom_hline(yintercept = seuil_2p, linetype = \"dashed\", color = \"darkorange\", linewidth = 0.8) +<\/code><br \/>\n<code>  geom_hline(yintercept = seuil_3p, linetype = \"dotted\", color = \"red3\", linewidth = 0.8) +<\/code><br \/>\n<code>  scale_color_manual(values = c(\"Normal\" = \"steelblue\", \"Attention (&gt;2p\/n)\" = \"darkorange\", \"Critique (&gt;3p\/n)\" = \"red3\")) +<\/code><br \/>\n<code>  geom_text_repel(data = subset(df_diag, leverage &gt; seuil_2p), aes(label = etiquette), size = 3.5, max.overlaps = 15) +<\/code><br \/>\n<code>  labs(title = \"\u00c9valuation diagnostique du levier multidimensionnel\", subtitle = paste(\"Seuils de d\u00e9cision : 2p\/n =\", round(seuil_2p, 4), \"| 3p\/n =\", round(seuil_3p, 4)), x = \"Index d'observation\", y = \"Valeur de projection (h_ii)\", color = \"Classification\") +<\/code><br \/>\n<code>  theme_minimal(base_size = 12) +<\/code><br \/>\n<code>  theme(legend.position = \"bottom\", panel.grid.minor = element_blank())<\/code><\/p>\n<p>L&rsquo;incorporation de l&rsquo;extension <code>ggrepel<\/code> r\u00e9sout de mani\u00e8re algorithmique le probl\u00e8me critique de la superposition des \u00e9tiquettes textuelles lorsque plusieurs observations \u00e0 fort levier sont regroup\u00e9es sur des indices s\u00e9quentiels rapproch\u00e9s. Ce type de graphique permet une communication transparente des anomalies observationnelles aupr\u00e8s des pairs dans le cadre d&rsquo;un rapport m\u00e9thodologique ou d&rsquo;un article soumis \u00e0 \u00e9valuation scientifique.<\/p>\n<h2>8. Diagnostic combin\u00e9 : Int\u00e9gration du levier et des r\u00e9sidus<\/h2>\n<h3>8.1 Diagramme de levier contre r\u00e9sidus studentis\u00e9s<\/h3>\n<p>L&rsquo;analyse isol\u00e9e du levier statistique ne permet pas d&rsquo;\u00e9valuer l&rsquo;impact effectif d&rsquo;un point sur les param\u00e8tres estim\u00e9s. Une observation dot\u00e9e d&rsquo;un levier \u00e9lev\u00e9 mais dont la valeur d\u00e9pendante est parfaitement align\u00e9e sur l&rsquo;hyperplan de r\u00e9gression ne d\u00e9forme pas le mod\u00e8le. C&rsquo;est pourquoi le diagnostic moderne impose une approche combin\u00e9e confrontant le levier \u00e0 l&rsquo;ampleur du r\u00e9sidu. Les r\u00e9sidus bruts \u00e9tant impropres \u00e0 cette comparaison en raison de leur variance non constante Var(<em>e<sub>i<\/sub><\/em>) = \u03c3<sup>2<\/sup>(1 &#8211; <em>h<sub>ii<\/sub><\/em>), il est imp\u00e9ratif de recourir aux r\u00e9sidus studentis\u00e9s externes, couramment d\u00e9nomm\u00e9s r\u00e9sidus studentis\u00e9s par omission unitaire (<em>jackknife residuals<\/em> ou <em>externally studentized residuals<\/em>).<\/p>\n<p>Dans le langage R, ces m\u00e9triques d&rsquo;erreur se calculent par la commande <code>rstudent()<\/code> :<\/p>\n<p><code>residus_studentises &lt;- rstudent(modele_lineaire)<\/code><\/p>\n<p>La formule analytique du r\u00e9sidu studentis\u00e9 externe pour la <em>i<\/em>-\u00e8me observation s&rsquo;\u00e9crit :<\/p>\n<p><em>t<sub>i<\/sub><\/em> = <em>e<sub>i<\/sub><\/em> \/ [<em>s<\/em><sub>(<em>i<\/em>)<\/sub> \u221a(1 &#8211; <em>h<sub>ii<\/sub><\/em>)]<\/p>\n<p>o\u00f9 <em>s<\/em><sub>(<em>i<\/em>)<\/sub> repr\u00e9sente l&rsquo;estimation de l&rsquo;erreur type r\u00e9siduelle obtenue en recalibrant le mod\u00e8le sur l&rsquo;\u00e9chantillon complet amput\u00e9 de l&rsquo;observation <em>i<\/em>. Sous les hypoth\u00e8ses classiques de normalit\u00e9 des perturbations, chaque <em>t<sub>i<\/sub><\/em> suit exactement une loi de Student \u00e0 <em>n<\/em> &#8211; <em>p<\/em> &#8211; 1 degr\u00e9s de libert\u00e9, ce qui autorise des tests d&rsquo;hypoth\u00e8ses rigoureux (les valeurs absolues exc\u00e9dant 2 ou 3 signalant des valeurs aberrantes significatives).<\/p>\n<p>Le trac\u00e9 bivari\u00e9 confrontant les <code>hatvalues<\/code> en abscisse aux <code>rstudent<\/code> en ordonn\u00e9e constitue un outil diagnostique d\u00e9cisif. Dans ce plan cart\u00e9sien, l&rsquo;espace se divise en quatre zones m\u00e9thodologiques :<\/p>\n<ul>\n<li>Le quadrant inf\u00e9rieur\/m\u00e9dian gauche (faible levier, r\u00e9sidu mod\u00e9r\u00e9) : zone de conformit\u00e9 normale.<\/li>\n<li>Le quadrant sup\u00e9rieur gauche (faible levier, fort r\u00e9sidu) : zone d&rsquo;aberrance univari\u00e9e sans gravit\u00e9 structurelle majeure.<\/li>\n<li>Le quadrant inf\u00e9rieur droit (fort levier, faible r\u00e9sidu) : zone des points d&rsquo;appui concordants.<\/li>\n<li>Le quadrant sup\u00e9rieur\/extr\u00eame droit (fort levier et fort r\u00e9sidu) : <strong>la zone de danger critique<\/strong>. Les points s&rsquo;y situant tirent violemment le mod\u00e8le vers eux tout en demeurant incapables d&rsquo;\u00eatre bien ajust\u00e9s, ce qui signale une distorsion majeure des estimateurs vectoriels.<\/li>\n<\/ul>\n<p>Dans l&rsquo;environnement R de base, la commande <code>plot(modele_lineaire, which = 5)<\/code> g\u00e9n\u00e8re automatiquement ce graphique combin\u00e9 (\u00ab <em>Residuals vs Leverage<\/em> \u00bb), superposant des courbes liss\u00e9es et les d\u00e9limitations spatiales des points probl\u00e9matiques.<\/p>\n<h3>8.2 Surimpression de la distance de Cook et contours de contour<\/h3>\n<p>Le raffinement supr\u00eame du diagramme de levier contre r\u00e9sidus studentis\u00e9s r\u00e9side dans la surimpression des lignes d&rsquo;isodistance de Cook. Puisque la distance de Cook s&rsquo;exprime analytiquement comme une fonction conjointe du r\u00e9sidu et de la m\u00e9trique <em>h<sub>ii<\/sub><\/em>\/(1 &#8211; <em>h<sub>ii<\/sub><\/em>), il est math\u00e9matiquement possible de tracer, sur le plan cart\u00e9sien (<em>h<sub>ii<\/sub><\/em>, r\u00e9sidu), des hyperboles de niveau constant correspondant aux seuils critiques de Cook usuels (typiquement <em>D<\/em> = 0.5 et <em>D<\/em> = 1.0).<\/p>\n<p>L&rsquo;affichage natif produit par <code>plot(modele_lineaire, which = 5)<\/code> int\u00e8gre automatiquement ces contours d&rsquo;isodistance de Cook sous la forme de lignes tiret\u00e9es rouges lorsque les observations de l&rsquo;\u00e9chantillon s&rsquo;approchent ou franchissent ces limites critiques. Si aucune ligne tiret\u00e9e n&rsquo;appara\u00eet sur le graphique, cela indique de facto qu&rsquo;aucune observation n&rsquo;atteint le seuil d&rsquo;influence de <em>D<\/em> = 0.5, ce qui rassure l&rsquo;analyste quant \u00e0 la stabilit\u00e9 g\u00e9n\u00e9rale des pr\u00e9dictions.<\/p>\n<p>L&rsquo;inspection analytique de ce graphique permet de rep\u00e9rer ce que les m\u00e9thodologues qualifient de \u00ab points charni\u00e8res \u00bb (<em>pivot points<\/em>). Un point charni\u00e8re poss\u00e8de un levier tr\u00e8s \u00e9lev\u00e9 (proche de 1) mais un r\u00e9sidu quasiment nul. Sur le graphique, il se situe au ras de l&rsquo;axe horizontal d&rsquo;ordonn\u00e9e z\u00e9ro, tout \u00e0 fait \u00e0 l&rsquo;extr\u00e9mit\u00e9 droite de l&rsquo;axe des abscisses. Bien que sa distance de Cook puisse demeurer sous le seuil d&rsquo;alerte en raison de la nullit\u00e9 de son r\u00e9sidu, ce point est d&rsquo;une pr\u00e9carit\u00e9 extr\u00eame : si une l\u00e9g\u00e8re modification survenait dans la collecte de sa valeur de r\u00e9ponse <em>y<\/em>, le point bondirait instantan\u00e9ment dans le quadrant de danger critique et infl\u00e9chirait l&rsquo;hyperplan avec une violence d\u00e9cupl\u00e9e. L&rsquo;analyste doit donc syst\u00e9matiquement identifier ces points pivots, car ils signalent une fragilit\u00e9 potentielle du mod\u00e8le qui se manifestera d\u00e8s que de nouvelles donn\u00e9es seront collect\u00e9es.<\/p>\n<h2>9. Utilisation d&rsquo;\u00e9cosyst\u00e8mes et de packages R sp\u00e9cialis\u00e9s<\/h2>\n<h3>9.1 Exploitation du package car pour l&rsquo;analyse diagnostique<\/h3>\n<p>Le package <a rel=\"noopener noreferrer\" href=\"https:\/\/cran.r-project.org\/package=car\">car<\/a> (<em>Companion to Applied Regression<\/em>), d\u00e9velopp\u00e9 initialement par John Fox et Sanford Weisberg, constitue l&rsquo;un des piliers m\u00e9thodologiques les plus reconnus pour l&rsquo;\u00e9conom\u00e9trie et les sciences sociales quantitatives dans R. Ce package enrichit consid\u00e9rablement les capacit\u00e9s natives du syst\u00e8me gr\u00e2ce \u00e0 des fonctions de diagnostic int\u00e9gr\u00e9es \u00e0 haute valeur ajout\u00e9e conceptuelle.<\/p>\n<p>La commande embl\u00e9matique du package pour l&rsquo;analyse du levier et de l&rsquo;influence est <code>influencePlot()<\/code>. Cette fonction g\u00e9n\u00e8re un diagramme de dispersion \u00e9labor\u00e9 qui synth\u00e9tise simultan\u00e9ment quatre dimensions statistiques :<\/p>\n<p><code>library(car)<\/code><br \/>\n<code>influencePlot(modele_lineaire, id = list(method = \"identify\"), main = \"Diagramme d'influence combin\u00e9 (car)\")<\/code><\/p>\n<p>Sur ce graphique novateur, l&rsquo;axe des abscisses porte les valeurs de levier <em>h<sub>ii<\/sub><\/em>, l&rsquo;axe des ordonn\u00e9es affiche les r\u00e9sidus studentis\u00e9s externes, et chaque observation est mat\u00e9rialis\u00e9e par une bulle circulaire dont le diam\u00e8tre est directement proportionnel \u00e0 sa distance de Cook. Des lignes de d\u00e9marcation horizontales (\u00e0 -2, 0 et +2 \u00e9carts types r\u00e9siduels) et verticales (aux seuils de 2<em>p<\/em>\/<em>n<\/em> et 3<em>p<\/em>\/<em>n<\/em>) divisent l&rsquo;espace en sous-r\u00e9gions analytiques. Les observations franchissant simultan\u00e9ment les crit\u00e8res de levier et de r\u00e9sidu sont \u00e9tiquet\u00e9es automatiquement, et la fonction renvoie en console une matrice r\u00e9capitulative contenant les valeurs pr\u00e9cises des r\u00e9sidus studentis\u00e9s, des hat values et des distances de Cook pour ces entit\u00e9s singuli\u00e8res.<\/p>\n<p>En compl\u00e9ment, la routine <code>car::influenceIndexPlot()<\/code> permet d&rsquo;extraire et de repr\u00e9senter graphiquement sur un panneau multi-figures vertical l&rsquo;ensemble des diagnostics d&rsquo;influence index\u00e9s par observation. En un seul appel :<\/p>\n<p><code>influenceIndexPlot(modele_lineaire, vars = c(\"hat\", \"Cook\", \"Studentized\"))<\/code><\/p>\n<p>le chercheur obtient une s\u00e9rie synchronis\u00e9e de trac\u00e9s d&rsquo;indices align\u00e9s, facilitant l&rsquo;identification visuelle imm\u00e9diate des sujets qui combinent un pic sur le graphique des <em>hat values<\/em> avec une \u00e9l\u00e9vation anormale sur le graphique de Cook. Cette standardisation m\u00e9thodologique offerte par le package <code>car<\/code> garantit une analyse exhaustive et directement reproductible dans le respect des standards acad\u00e9miques.<\/p>\n<h3>9.2 Diagnostic moderne avec broom et olsrr<\/h3>\n<p>L&rsquo;av\u00e8nement de l&rsquo;\u00e9cosyst\u00e8me Tidyverse a profond\u00e9ment renouvel\u00e9 la manipulation des structures de donn\u00e9es en R. Le package <code>broom<\/code> joue un r\u00f4le charni\u00e8re dans cette modernisation en convertissant les objets statistiques complexes issus de <code>lm()<\/code> en structures de donn\u00e9es rectangulaires standardis\u00e9es (<em>tibbles<\/em>). La fonction fondamentale <code>broom::augment()<\/code> enrichit le tableau de donn\u00e9es d&rsquo;origine avec l&rsquo;ensemble des m\u00e9triques diagnostiques g\u00e9n\u00e9r\u00e9es par le mod\u00e8le :<\/p>\n<p><code>library(broom)<\/code><br \/>\n<code>library(dplyr)<\/code><br \/>\n<code>table_diagnostique &lt;- augment(modele_lineaire)<\/code><\/p>\n<p>Dans ce nouveau tableau tabulaire, les valeurs de levier sont syst\u00e9matiquement consign\u00e9es sous le nom de colonne standardis\u00e9 <code>.hat<\/code>, les r\u00e9sidus ordinaires sous <code>.resid<\/code>, les r\u00e9sidus studentis\u00e9s sous <code>.std.resid<\/code>, et la distance de Cook sous <code>.cooksd<\/code>. Gr\u00e2ce \u00e0 cette standardisation relationnelle, le filtrage et le tri des observations d\u00e9viantes s&rsquo;op\u00e8rent avec la fluidit\u00e9 syntaxique caract\u00e9ristique de <code>dplyr<\/code> :<\/p>\n<p><code>sujets_problematiques &lt;- table_diagnostique %&gt;%<\/code><br \/>\n<code>  filter(.hat &gt; seuil_2p | .cooksd &gt; 0.5) %&gt;%<\/code><br \/>\n<code>  arrange(desc(.hat))<\/code><\/p>\n<p>Parall\u00e8lement \u00e0 la flexibilit\u00e9 universelle de <code>broom<\/code>, le package sp\u00e9cialis\u00e9 <code>olsrr<\/code> propose une bo\u00eete \u00e0 outils explicitement d\u00e9di\u00e9e \u00e0 l&rsquo;enseignement et \u00e0 la recherche en r\u00e9gression lin\u00e9aire multiple. Ce package offre des routines sp\u00e9cialis\u00e9es d&rsquo;une grande clart\u00e9 op\u00e9rationnelle. Par exemple, la fonction <code>ols_plot_resid_lev()<\/code> produit d&rsquo;un bloc un graphique ggplot sophistiqu\u00e9 partitionnant les donn\u00e9es selon leurs statuts d&rsquo;aberrance et de levier. De m\u00eame, la commande <code>ols_plot_hadi()<\/code> impl\u00e9mente la m\u00e9trique de Hadi, une alternative matricielle robuste con\u00e7ue pour surmonter les effets de masquage lorsque plusieurs points \u00e0 fort levier sont regroup\u00e9s en grappes compactes. L&rsquo;incorporation de ces biblioth\u00e8ques dans un pipeline d&rsquo;analyse garantit un gain de productivit\u00e9 substantiel et un code \u00e9pur\u00e9, parfaitement align\u00e9 sur les pratiques contemporaines de la science des donn\u00e9es.<\/p>\n<h2>10. Traitement m\u00e9thodologique des observations \u00e0 fort levier<\/h2>\n<h3>10.1 Investigation de la gen\u00e8se des points de levier \u00e9lev\u00e9<\/h3>\n<p>La d\u00e9couverte d&rsquo;observations pr\u00e9sentant un levier statistique extr\u00eame ne doit jamais \u00eatre interpr\u00e9t\u00e9e comme une invitation m\u00e9canique \u00e0 leur \u00e9limination aveugle. Dans la d\u00e9marche scientifique, un point atypique est porteur d&rsquo;une information potentiellement cruciale sur le ph\u00e9nom\u00e8ne \u00e9tudi\u00e9 ou sur les conditions de production des donn\u00e9es. Le statisticien doit se muer en enqu\u00eateur et proc\u00e9der \u00e0 un audit m\u00e9thodique de la gen\u00e8se de cette singularit\u00e9 spatiale avant d&rsquo;envisager la moindre intervention corrective.<\/p>\n<p>La premi\u00e8re piste d&rsquo;investigation concerne les erreurs mat\u00e9rielles d&rsquo;acquisition, de transcription ou d&rsquo;encodage. Une observation peut se retrouver dot\u00e9e d&rsquo;un levier titanesque simplement parce qu&rsquo;un op\u00e9rateur a saisi un z\u00e9ro suppl\u00e9mentaire lors de l&rsquo;enregistrement manuel d&rsquo;une variable biologique, industrielle ou mon\u00e9taire, d\u00e9pla\u00e7ant instantan\u00e9ment le sujet \u00e0 plusieurs centaines d&rsquo;\u00e9carts types du centro\u00efde de la distribution. De m\u00eame, des confusions d&rsquo;unit\u00e9s de mesure (par exemple exprimer la taille d&rsquo;un sujet en millim\u00e8tres au lieu de m\u00e8tres au sein d&rsquo;un \u00e9chantillon par ailleurs homog\u00e8ne) g\u00e9n\u00e8rent des points de levier aberrants. Si une telle erreur d&rsquo;encodage est formellement d\u00e9montr\u00e9e par un retour au protocole source ou au registre d&rsquo;exp\u00e9rimentation, la correction de la valeur corrompue (ou, \u00e0 d\u00e9faut, son exclusion) s&rsquo;impose comme une n\u00e9cessit\u00e9 m\u00e9thodologique absolue et scientifiquement l\u00e9gitime.<\/p>\n<p>La seconde hypoth\u00e8se structurelle renvoie \u00e0 la validit\u00e9 \u00e9cologique de l&rsquo;\u00e9chantillonnage et \u00e0 la pr\u00e9sence non d\u00e9tect\u00e9e d&rsquo;h\u00e9t\u00e9rog\u00e9n\u00e9it\u00e9s sous-jacentes. Le point \u00e0 fort levier peut ne pas \u00eatre une erreur de mesure, mais plut\u00f4t le r\u00e9v\u00e9lateur d&rsquo;une sous-population marginale n&rsquo;appartenant pas \u00e0 l&rsquo;espace de r\u00e9f\u00e9rence du ph\u00e9nom\u00e8ne th\u00e9orique mod\u00e9lis\u00e9. En \u00e9pid\u00e9miologie clinique, il peut s&rsquo;agir d&rsquo;un patient porteur d&rsquo;une comorbidit\u00e9 rare non document\u00e9e ; en \u00e9conom\u00e9trie financi\u00e8re, d&rsquo;une multinationale dont l&rsquo;\u00e9chelle capitalistique d\u00e9fie les r\u00e9gularit\u00e9s observ\u00e9es chez les petites et moyennes entreprises formant le reste de l&rsquo;\u00e9chantillon. Enfin, des dysfonctionnements instrumentaux lors de collectes automatis\u00e9es (saturation de capteurs physiques, pannes de transmission) constituent une source r\u00e9currente de singularit\u00e9s g\u00e9om\u00e9triques.<\/p>\n<p>Sur le plan d\u00e9ontologique et \u00e9pist\u00e9mologique, l&rsquo;exclusion arbitraire d&rsquo;une observation valide dans le seul dessein d&rsquo;am\u00e9liorer le coefficient de d\u00e9termination <em>R<\/em><sup>2<\/sup> ou d&rsquo;atteindre un seuil de significativit\u00e9 <em>p<\/em> &lt; 0.05 constitue une fraude scientifique caract\u00e9ris\u00e9e (pratique assimil\u00e9e au <em>p-hacking<\/em> ou au tri opportuniste de donn\u00e9es). La d\u00e9cision d&rsquo;\u00e9carter un point doit toujours \u00eatre motiv\u00e9e par des arguments th\u00e9oriques ou instrumentaux pr\u00e9-analytiques et faire l&rsquo;objet d&rsquo;une divulgation exhaustive dans le rapport m\u00e9thodologique de l&rsquo;\u00e9tude.<\/p>\n<h3>10.2 Techniques de mod\u00e9lisation alternative et analyses de sensibilit\u00e9<\/h3>\n<p>Lorsque des observations \u00e0 fort levier se r\u00e9v\u00e8lent \u00eatre des donn\u00e9es authentiques, repr\u00e9sentatives d&rsquo;une r\u00e9alit\u00e9 structurelle complexe, et que leur suppression est exclue pour des motifs de validit\u00e9 de construit, le statisticien doit abandonner l&rsquo;estimation standard par moindres carr\u00e9s ordinaires au profit d&rsquo;approches de mod\u00e9lisation robustes ou de r\u00e9ajustements math\u00e9matiques adapt\u00e9s.<\/p>\n<p>La premi\u00e8re strat\u00e9gie corrective consiste \u00e0 appliquer des transformations non lin\u00e9aires aux pr\u00e9dicteurs incrimin\u00e9s afin de r\u00e9sorber leur dispersion multivari\u00e9e. La transformation logarithmique canonique <code>log(x)<\/code> (ou la transformation g\u00e9n\u00e9ralis\u00e9e de Box-Cox) compresse spectaculairement les \u00e9chelles de distribution \u00e0 tra\u00eene longue, rapprochant les observations isol\u00e9es du barycentre de l&rsquo;\u00e9chantillon. Cette transformation modifie la sp\u00e9cification fonctionnelle en un mod\u00e8le log-lin\u00e9aire ou log-log, ce qui r\u00e9sout m\u00e9caniquement la pathologie du fort levier tout en conservant l&rsquo;int\u00e9gralit\u00e9 des unit\u00e9s statistiques dans le processus d&rsquo;estimation.<\/p>\n<p>La deuxi\u00e8me alternative fondamentale r\u00e9side dans l&rsquo;adoption d&rsquo;estimateurs robustes con\u00e7us sp\u00e9cifiquement pour neutraliser les effets de projection extr\u00eame. Le package <code>MASS<\/code> fournit la fonction <code>rlm()<\/code> (<em>robust linear model<\/em>), qui impl\u00e9mente les M-estimateurs avec pond\u00e9rations r\u00e9cursives (par exemple la fonction de pond\u00e9ration de Huber ou le bi-poids de Tukey). Toutefois, il est imp\u00e9ratif de souligner une nuance th\u00e9orique majeure : les M-estimateurs standards sont tr\u00e8s efficaces pour neutraliser les valeurs aberrantes selon l&rsquo;axe vertical des r\u00e9sidus, mais ils demeurent vuln\u00e9rables aux points de fort levier dans l&rsquo;espace des pr\u00e9dicteurs. Pour juguler sp\u00e9cifiquement l&rsquo;effet de levier, il convient d&rsquo;adopter des estimateurs \u00e0 point de rupture \u00e9lev\u00e9 (<em>high-breakdown estimators<\/em>), tels que l&rsquo;estimateur des moindres carr\u00e9s tronqu\u00e9s (LTS &#8211; <em>Least Trimmed Squares<\/em>) ou les estimateurs de type MM, impl\u00e9ment\u00e9s dans le package sp\u00e9cialis\u00e9 <code>robustbase<\/code> via la fonction <code>lmrob()<\/code> :<\/p>\n<p><code>library(robustbase)<\/code><br \/>\n<code>modele_robuste &lt;- lmrob(y ~ x1 + x2, data = donnees)<\/code><\/p>\n<p>Parall\u00e8lement, l&rsquo;analyste peut d\u00e9ployer des proc\u00e9dures de r\u00e9\u00e9chantillonnage de type bootstrap (notamment le <em>wild bootstrap<\/em>) pour \u00e9valuer la sensibilit\u00e9 empirique des erreurs types et v\u00e9rifier si l&rsquo;inf\u00e9rence param\u00e9trique est d\u00e9pendante des configurations g\u00e9om\u00e9triques extr\u00eames.<\/p>\n<p>Enfin, la r\u00e8gle d&rsquo;or m\u00e9thodologique pr\u00e9conise la mise en \u0153uvre d&rsquo;un protocole d&rsquo;analyse de sensibilit\u00e9 double. Le chercheur pr\u00e9sente, dans un tableau comparatif transparent, les r\u00e9sultats du mod\u00e8le calibr\u00e9 sur l&rsquo;\u00e9chantillon int\u00e9gral aux c\u00f4t\u00e9s de ceux obtenus apr\u00e8s exclusion des points de levier critique ou via une estimation robuste. Si les coefficients vectoriels et les conclusions qualitatives demeurent concordants entre les deux sp\u00e9cifications, l&rsquo;analyste peut affirmer avec confiance la robustesse de ses conclusions empiriques face aux perturbations g\u00e9om\u00e9triques.<\/p>\n<h2>11. \u00c9tude de cas appliqu\u00e9e : Mod\u00e9lisation multivari\u00e9e \u00e9tape par \u00e9tape<\/h2>\n<h3>11.1 Mise en situation empirique et contextualisation des variables<\/h3>\n<p>Afin de consolider les principes th\u00e9oriques et m\u00e9thodologiques expos\u00e9s jusqu&rsquo;ici, d\u00e9veloppons une \u00e9tude de cas appliqu\u00e9e et int\u00e9grale sous R. Imaginons une recherche men\u00e9e en \u00e9conom\u00e9trie r\u00e9gionale portant sur la performance d&rsquo;innovation technologique de <em>n<\/em> = 100 bassins d&#8217;emploi territoriaux. La variable d\u00e9pendante continue, not\u00e9e <code>Score_Innovation<\/code>, quantifie l&rsquo;indice d&rsquo;activit\u00e9 brevet\u00e9e par habitant. Le mod\u00e8le mobilise trois covariables continues explicatives :<\/p>\n<ul>\n<li><code>Depenses_RD<\/code> : Montant des investissements territoriaux en Recherche &amp; D\u00e9veloppement (en millions d&rsquo;euros).<\/li>\n<li><code>Diplomes_Superieur<\/code> : Pourcentage de la population active d\u00e9tenant un dipl\u00f4me d&rsquo;\u00e9tudes sup\u00e9rieures.<\/li>\n<li><code>Densite_Entreprises<\/code> : Nombre d&rsquo;entreprises de haute technologie par kilom\u00e8tre carr\u00e9.<\/li>\n<\/ul>\n<p>Pour assurer la reproductibilit\u00e9 parfaite de cette d\u00e9monstration empirique, nous initialisons un g\u00e9n\u00e9rateur de nombres pseudo-al\u00e9atoires et synth\u00e9tisons un jeu de donn\u00e9es refl\u00e9tant des conditions de recherche r\u00e9elles, au sein duquel nous injectons d\u00e9lib\u00e9r\u00e9ment un point dot\u00e9 d&rsquo;une configuration spatiale singuli\u00e8re :<\/p>\n<p><code>set.seed(42)<\/code><br \/>\n<code>n &lt;- 100<\/code><br \/>\n<code>Depenses_RD &lt;- rnorm(n, mean = 50, sd = 10)<\/code><br \/>\n<code>Diplomes_Superieur &lt;- rnorm(n, mean = 30, sd = 5)<\/code><br \/>\n<code>Densite_Entreprises &lt;- rnorm(n, mean = 15, sd = 3)<\/code><br \/>\n<code>Score_Innovation &lt;- 5 + 0.4 * Depenses_RD + 0.8 * Diplomes_Superieur + 0.5 * Densite_Entreprises + rnorm(n, mean = 0, sd = 4)<\/code><br \/>\n<code>donnees_territoires &lt;- data.frame(Depenses_RD, Diplomes_Superieur, Densite_Entreprises, Score_Innovation)<\/code><\/p>\n<p>Nous introduisons ensuite manuellement une observation critique sur l&rsquo;observation num\u00e9ro 100. Ce territoire m\u00e9tropolitain atypique concentre des d\u00e9penses de R&amp;D massives et une densit\u00e9 d&rsquo;entreprises sans commune mesure avec le reste des territoires :<\/p>\n<p><code>donnees_territoires$Depenses_RD[100] &lt;- 120<\/code><br \/>\n<code>donnees_territoires$Densite_Entreprises[100] &lt;- 38<\/code><br \/>\n<code>donnees_territoires$Score_Innovation[100] &lt;- 45<\/code><\/p>\n<p>Nous proc\u00e9dons \u00e0 l&rsquo;ajustement du mod\u00e8le de r\u00e9gression lin\u00e9aire multivari\u00e9e par les moindres carr\u00e9s ordinaires :<\/p>\n<p><code>modele_eco &lt;- lm(Score_Innovation ~ Depenses_RD + Diplomes_Superieur + Densite_Entreprises, data = donnees_territoires)<\/code><\/p>\n<p>L&rsquo;extraction des statistiques de levier et la quantification des crit\u00e8res de d\u00e9cision empiriques s&rsquo;ex\u00e9cutent conform\u00e9ment aux formulations th\u00e9oriques :<\/p>\n<p><code>p &lt;- length(coef(modele_eco))<\/code><br \/>\n<code>leviers_eco &lt;- hatvalues(modele_eco)<\/code><br \/>\n<code>seuil_2p &lt;- 2 * p \/ n<\/code><br \/>\n<code>seuil_3p &lt;- 3 * p \/ n<\/code><\/p>\n<p>Avec <em>p<\/em> = 4 (la constante plus les trois covariables) et <em>n<\/em> = 100, la moyenne th\u00e9orique du levier s&rsquo;\u00e9tablit \u00e0 <em>p<\/em>\/<em>n<\/em> = 0.04. Par cons\u00e9quent, le seuil lib\u00e9ral correspond \u00e0 0.08, tandis que le seuil conservateur s&rsquo;\u00e9l\u00e8ve \u00e0 0.12. L&rsquo;interrogation de l&rsquo;observation 100 r\u00e9v\u00e8le une statistique <code>leviers_eco[100]<\/code> approchant 0.45, exc\u00e9dant ainsi de plus de trois fois le seuil conservateur le plus exigeant. Ce territoire se situe aux confins g\u00e9om\u00e9triques de la distribution d&rsquo;\u00e9chantillonnage, constituant un ancrage potentiel majeur sur le plan factoriel.<\/p>\n<h3>11.2 \u00c9valuation comparative des mod\u00e8les apr\u00e8s traitement<\/h3>\n<p>Pour mesurer l&rsquo;ampleur exacte de la perturbation exerc\u00e9e par ce point de levier extr\u00eame (qui s&rsquo;av\u00e8re \u00eatre discordant puisque son score d&rsquo;innovation de 45 est substantiellement inf\u00e9rieur \u00e0 ce que son volume colossal de d\u00e9penses pr\u00e9dirait sous la pente nominale), nous r\u00e9ajustons le mod\u00e8le lin\u00e9aire sur l&rsquo;\u00e9chantillon expurg\u00e9 de cette entit\u00e9 observationnelle :<\/p>\n<p><code>modele_sans_100 &lt;- lm(Score_Innovation ~ Depenses_RD + Diplomes_Superieur + Densite_Entreprises, data = donnees_territoires[-100, ])<\/code><\/p>\n<p>La comparaison num\u00e9rique rigoureuse des coefficients estim\u00e9s et de leurs intervalles de confiance \u00e0 95% met en relief l&rsquo;instabilit\u00e9 induite par l&rsquo;observation singuli\u00e8re :<\/p>\n<p><code>coef_complet &lt;- coef(modele_eco)<\/code><br \/>\n<code>coef_tronque &lt;- coef(modele_sans_100)<\/code><br \/>\n<code>ic_complet &lt;- confint(modele_eco)<\/code><br \/>\n<code>ic_tronque &lt;- confint(modele_sans_100)<\/code><\/p>\n<p>L&rsquo;examen des sorties r\u00e9v\u00e8le que dans le mod\u00e8le complet, le coefficient estim\u00e9 pour la variable <code>Depenses_RD<\/code> est artificiellement tir\u00e9 vers le bas (par exemple aux alentours de 0.28 au lieu de sa valeur th\u00e9orique g\u00e9n\u00e9ratrice de 0.40), car la droite a \u00e9t\u00e9 m\u00e9caniquement contrainte de s&rsquo;incliner pour accommoder la position aberrante de l&rsquo;observation 100. D\u00e8s l&rsquo;omission du point, le coefficient r\u00e9\u00e9valu\u00e9 remonte spectaculairement \u00e0 proximit\u00e9 de 0.41, retrouvant sa concordance avec le processus g\u00e9n\u00e9rateur de donn\u00e9es sous-jacent. L&rsquo;erreur type r\u00e9siduelle diminue simultan\u00e9ment, restaurant la puissance des tests de Student.<\/p>\n<p>Voici la synth\u00e8se reproductible sous forme de script R enti\u00e8rement document\u00e9, encapsulant la proc\u00e9dure diagnostique compl\u00e8te :<\/p>\n<p><code># 1. Extraction et enrichissement diagnostique<\/code><br \/>\n<code>diagnostics &lt;- data.frame(<\/code><br \/>\n<code>  Indicateur = c(\"Levier moyen (p\/n)\", \"Seuil critique 2p\/n\", \"Seuil critique 3p\/n\", \"Levier max observe (obs #100)\", \"Cook max observe (obs #100)\"),<\/code><br \/>\n<code>  Valeur = c(p\/n, seuil_2p, seuil_3p, leviers_eco[100], cooks.distance(modele_eco)[100])<\/code><br \/>\n<code>)<\/code><br \/>\n<code>print(diagnostics)<\/code><\/p>\n<p><code># 2. Tableau comparatif des estimations<\/code><br \/>\n<code>comparaison_coefs &lt;- cbind(<\/code><br \/>\n<code>  Modele_Complet = coef(modele_eco),<\/code><br \/>\n<code>  Modele_Corrige = coef(modele_sans_100),<\/code><br \/>\n<code>  Biais_Relatif_Pct = ((coef(modele_eco) - coef(modele_sans_100)) \/ coef(modele_sans_100)) * 100<\/code><br \/>\n<code>)<\/code><br \/>\n<code>print(round(comparaison_coefs, 3))<\/code><\/p>\n<p>Cette exp\u00e9rimentation empirique d\u00e9montre sans \u00e9quivoque qu&rsquo;un unique point dot\u00e9 d&rsquo;un levier extr\u00eame est capable d&rsquo;alt\u00e9rer qualitativement les conclusions d&rsquo;une \u00e9tude, conduisant potentiellement des d\u00e9cideurs publics \u00e0 sous-estimer de pr\u00e8s de 30% l&rsquo;impact r\u00e9el des d\u00e9penses en R&amp;D sur l&rsquo;innovation territoriale. L&rsquo;audit de levier dans R prouve ici son statut d&rsquo;outil de contr\u00f4le m\u00e9thodologique indispensable.<\/p>\n<h2>12. Bonnes pratiques, limites statistiques et standards de publication<\/h2>\n<h3>12.1 Interactions avec la multicollin\u00e9arit\u00e9 et la dimensionnalit\u00e9<\/h3>\n<p>L&rsquo;analyse des statistiques de levier ne peut \u00eatre conduite de mani\u00e8re isol\u00e9e sans appr\u00e9hender ses interactions \u00e9troites avec la g\u00e9om\u00e9trie globale de l&rsquo;espace des covariables, au premier rang desquelles figure la multicollin\u00e9arit\u00e9 s\u00e9v\u00e8re. Lorsque deux ou plusieurs variables explicatives pr\u00e9sentent de fortes corr\u00e9lations mutuelles, la matrice de Gram <strong>X<\/strong><sup>T<\/sup><strong>X<\/strong> devient mal conditionn\u00e9e, son d\u00e9terminant s&rsquo;approche de z\u00e9ro et les \u00e9l\u00e9ments diagonaux de sa matrice inverse (<strong>X<\/strong><sup>T<\/sup><strong>X<\/strong>)<sup>-1<\/sup> explosent en amplitude. Cette distorsion matricielle se r\u00e9percute directement sur le calcul de la projection chapeau : la forme quadratique (<strong>x<\/strong><sub><em>i<\/em><\/sub> &#8211; <strong>x\u0304<\/strong>)<sup>T<\/sup>(<strong>X\u0303<\/strong><sup>T<\/sup><strong>X\u0303<\/strong>)<sup>-1<\/sup>(<strong>x<\/strong><sub><em>i<\/em><\/sub> &#8211; <strong>x\u0304<\/strong>) s&rsquo;\u00e9tire le long des directions associ\u00e9es aux petites valeurs propres du syst\u00e8me. En cons\u00e9quence, une observation dont la position n&rsquo;est pas particuli\u00e8rement extr\u00eame sur chaque pr\u00e9dicteur pris isol\u00e9ment peut voir sa valeur de levier s&rsquo;envoler de fa\u00e7on spectaculaire simplement parce qu&rsquo;elle brise la structure de corr\u00e9lation conjointe entre les covariables.<\/p>\n<p>Pour cette raison, il est imp\u00e9ratif d&rsquo;\u00e9valuer conjointement les facteurs d&rsquo;inflation de la variance (VIF &#8211; <em>Variance Inflation Factor<\/em>) et les <code>hatvalues<\/code>. La fonction <code>car::vif(modele)<\/code> permet de v\u00e9rifier si des scores VIF sup\u00e9rieurs \u00e0 5 ou 10 sont concomitants avec l&rsquo;apparition de leviers artificiellement gonfl\u00e9s. L&rsquo;analyste \u00e9vite ainsi de confondre une singularit\u00e9 g\u00e9om\u00e9trique r\u00e9elle avec un artefact computationnel induit par la redondance des pr\u00e9dicteurs.<\/p>\n<p>Une seconde limite m\u00e9thodologique fondamentale appara\u00eet en contexte de grande dimensionnalit\u00e9, lorsque le nombre de pr\u00e9dicteurs <em>p<\/em> s&rsquo;approche de la taille d&rsquo;\u00e9chantillon <em>n<\/em> (situation o\u00f9 le ratio <em>p<\/em>\/<em>n<\/em> tend vers 1). \u00c0 la limite o\u00f9 <em>p<\/em> = <em>n<\/em>, la matrice <strong>X<\/strong> devient carr\u00e9e et inversible, la matrice chapeau <strong>H<\/strong> d\u00e9g\u00e9n\u00e8re en la matrice identit\u00e9 <strong>I<\/strong><sub><em>n<\/em><\/sub>, et chaque \u00e9l\u00e9ment diagonal <em>h<sub>ii<\/sub><\/em> devient strictement \u00e9gal \u00e0 1. Dans de telles configurations de parcimonie restreinte, la notion classique de seuil critique perd toute signification discriminante, chaque observation \u00e9tant math\u00e9matiquement convertie en son propre pr\u00e9dicteur parfait avec un r\u00e9sidu nul. Pour les devis statistiques complexes en haute dimension, les diagnostics de levier bas\u00e9s sur les moindres carr\u00e9s ordinaires doivent \u00eatre abandonn\u00e9s au profit de m\u00e9triques r\u00e9gularis\u00e9es adapt\u00e9es aux mod\u00e8les de p\u00e9nalisation (comme les r\u00e9gressions Ridge, Lasso ou Elastic-Net), o\u00f9 le degr\u00e9 d&rsquo;att\u00e9nuation param\u00e9trique remplace l&rsquo;hyperplan de projection libre.<\/p>\n<h3>12.2 Directives de r\u00e9daction acad\u00e9mique et transparence m\u00e9thodologique<\/h3>\n<p>La communication scientifique rigoureuse impose des standards \u00e9lev\u00e9s en mati\u00e8re de transparence m\u00e9thodologique lors du rapportage des mod\u00e8les de r\u00e9gression lin\u00e9aire. Conform\u00e9ment aux directives de publication \u00e9mises par l&rsquo;<em>American Psychological Association<\/em> (normes APA, 7e \u00e9dition) et par les principaux comit\u00e9s \u00e9ditoriaux internationaux en \u00e9conom\u00e9trie et recherche biom\u00e9dicale, les auteurs ne peuvent plus se limiter \u00e0 la simple mention des coefficients finaux et de leur significativit\u00e9 stochastique. L&rsquo;\u00e9valuation des postulats du mod\u00e8le, incluant explicitement l&rsquo;audit des valeurs atypiques, du levier et de l&rsquo;influence, constitue un passage oblig\u00e9 de la section m\u00e9thodologique.<\/p>\n<p>Lors de la r\u00e9daction acad\u00e9mique, il convient d&rsquo;expliciter clairement :<\/p>\n<ul>\n<li>Les fonctions de calcul et les progiciels mobilis\u00e9s (par exemple la fonction <code>hatvalues()<\/code> sous R version 4.x).<\/li>\n<li>La formule math\u00e9matique et le seuil de coupure retenus pour la cat\u00e9gorisation du levier (explicitement d\u00e9clarer le choix entre 2<em>p<\/em>\/<em>n<\/em> ou 3<em>p<\/em>\/<em>n<\/em> et en justifier l&rsquo;ad\u00e9quation eu \u00e9gard \u00e0 la taille <em>n<\/em>).<\/li>\n<li>Le nombre pr\u00e9cis d&rsquo;observations franchissant ce seuil, ainsi que leur typologie d\u00e9taill\u00e9e (levier concordant versus levier discordant).<\/li>\n<li>Les protocoles d&rsquo;investigation men\u00e9s pour v\u00e9rifier l&rsquo;exactitude des valeurs de ces observations (\u00e9limination formelle des erreurs mat\u00e9rielles de saisie).<\/li>\n<li>La justification th\u00e9orique soutenant la d\u00e9cision finale de conservation, de transformation fonctionnelle ou d&rsquo;exclusion de ces unit\u00e9s.<\/li>\n<\/ul>\n<p>Dans un souci de reproductibilit\u00e9 int\u00e9grale (fondement de la science ouverte), les scripts de calcul R utilis\u00e9s pour g\u00e9n\u00e9rer les diagnostics, ainsi que les tableaux comparatifs de sensibilit\u00e9 avec et sans les observations \u00e0 fort levier, doivent \u00eatre syst\u00e9matiquement vers\u00e9s dans les annexes \u00e9lectroniques ou sur des d\u00e9p\u00f4ts ouverts p\u00e9rennes. Pour s\u00e9curiser l&rsquo;auditabilit\u00e9 du processus d&rsquo;inf\u00e9rence, nous r\u00e9sumons dans la liste de contr\u00f4le ci-dessous les \u00e9tapes indispensables que tout chercheur quantitatif se doit de valider lors de la mod\u00e9lisation sous R :<\/p>\n<ul>\n<li>V\u00e9rification pr\u00e9alable du rang de la matrice des covariables avec <code>qr(X)$rank == p<\/code>.<\/li>\n<li>Extraction vectorielle directe du levier via <code>hatvalues(modele)<\/code> et contr\u00f4le de la somme \u00e9gale \u00e0 <em>p<\/em>.<\/li>\n<li>Calcul des seuils empiriques param\u00e9tr\u00e9s <code>2*p\/n<\/code> et <code>3*p\/n<\/code>.<\/li>\n<li>Visualisation conjointe du levier et des r\u00e9sidus studentis\u00e9s externes avec <code>plot(modele, which = 5)<\/code> ou <code>car::influencePlot(modele)<\/code>.<\/li>\n<li>Audit approfondi des ant\u00e9c\u00e9dents observationnels pour chaque point de levier identifi\u00e9.<\/li>\n<li>Test de stabilit\u00e9 des coefficients par analyse de sensibilit\u00e9 comparative (mod\u00e8le complet versus mod\u00e8le restreint ou estimation robuste <code>MASS::rlm<\/code> \/ <code>robustbase::lmrob<\/code>).<\/li>\n<li>D\u00e9p\u00f4t transparent du script R complet et documentation explicite des arbitrages dans le manuscrit final.<\/li>\n<\/ul>\n<h2>R\u00e9f\u00e9rences<\/h2>\n<p>Belsley, D. A., Kuh, E., &amp; Welsch, R. E. (1980). <em>Regression diagnostics: Identifying influential data and sources of collinearity<\/em>. John Wiley &amp; Sons. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1002\/0471725153\">https:\/\/doi.org\/10.1002\/0471725153<\/a><\/p>\n<p>Cook, R. D. (1977). Detection of influential observation in linear regression. <em>Technometrics<\/em>, 19(1), 15\u201318. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1080\/00401706.1977.10489493\">https:\/\/doi.org\/10.1080\/00401706.1977.10489493<\/a><\/p>\n<p>Cook, R. D., &amp; Weisberg, S. (1982). <em>Residuals and influence in regression<\/em>. Chapman &amp; Hall.<\/p>\n<p>Fox, J., &amp; Weisberg, S. (2019). <em>An R companion to applied regression<\/em> (3rd ed.). SAGE Publications.<\/p>\n<p>Hoaglin, D. C., &amp; Welsch, R. E. (1978). The hat matrix in regression and ANOVA. <em>The American Statistician<\/em>, 32(1), 17\u201322. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1080\/00031305.1978.10479237\">https:\/\/doi.org\/10.1080\/00031305.1978.10479237<\/a><\/p>\n<p>Huber, P. J. (1981). <em>Robust statistics<\/em>. John Wiley &amp; Sons. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1002\/0471725285\">https:\/\/doi.org\/10.1002\/0471725285<\/a><\/p>\n<p>R Core Team. (2024). <em>R: A language and environment for statistical computing<\/em>. R Foundation for Statistical Computing. <a rel=\"noopener noreferrer\" href=\"https:\/\/www.R-project.org\/\">https:\/\/www.R-project.org\/<\/a><\/p>\n<p>Rousseeuw, P. J., &amp; Leroy, A. M. (1987). <em>Robust regression and outlier detection<\/em>. John Wiley &amp; Sons. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1002\/0471852333\">https:\/\/doi.org\/10.1002\/0471852333<\/a><\/p>\n<p>Wickham, H. (2016). <em>ggplot2: Elegant graphics for data analysis<\/em>. Springer-Verlag. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/978-3-319-24277-4\">https:\/\/doi.org\/10.1007\/978-3-319-24277-4<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Guide acad\u00e9mique complet pour calculer, interpr\u00e9ter et visualiser les statistiques de levier (hat values) dans R pour la mod\u00e9lisation statistique.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","template":"","categories":[2193,1838],"tags":[3733,7534,2658,1910,7533],"class_list":["post-5645","psych_stat","type-psych_stat","status-publish","hentry","category-programmation-r","category-statistiques","tag-diagnostic-de-regression","tag-matrice-chapeau","tag-r","tag-regression-lineaire","tag-statistiques-de-levier"],"_links":{"self":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/5645","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=5645"}],"version-history":[{"count":0,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/5645\/revisions"}],"wp:attachment":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5645"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5645"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5645"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}