{"id":7984,"date":"2026-10-14T18:02:18","date_gmt":"2026-10-14T18:02:18","guid":{"rendered":"http:\/\/french.arabpsychology.com\/statistics\/comment-utiliser-distribution-triangulaire-dans-r-exemples\/"},"modified":"2026-10-14T18:02:18","modified_gmt":"2026-10-14T18:02:18","slug":"comment-utiliser-distribution-triangulaire-dans-r-exemples","status":"publish","type":"psych_stat","link":"https:\/\/french.arabpsychology.com\/?psych_stat=comment-utiliser-distribution-triangulaire-dans-r-exemples","title":{"rendered":"Comment utiliser la distribution triangulaire dans R (avec exemples)"},"content":{"rendered":"<p>Dans le champ contemporain de la mod\u00e9lisation statistique, de l&rsquo;analyse d\u00e9cisionnelle et de la recherche comportementale, la quantification rigoureuse des incertitudes constitue un d\u00e9fi m\u00e9thodologique permanent. Les chercheurs et analystes sont fr\u00e9quemment confront\u00e9s \u00e0 des contextes empiriques au sein desquels les donn\u00e9es historiques s&rsquo;av\u00e8rent rares, incompl\u00e8tes, ou m\u00e9thodologiquement impossibles \u00e0 collecter en volume suffisant pour calibrer des lois param\u00e9triques complexes \u00e0 queues infinies, telles que la distribution normale ou la distribution log-normale. Face \u00e0 cette p\u00e9nurie observationnelle, le recours aux estimations subjectives structur\u00e9es issues du jugement d&rsquo;experts s&rsquo;impose comme une n\u00e9cessit\u00e9 \u00e9pist\u00e9mologique. <\/p>\n<p>C&rsquo;est pr\u00e9cis\u00e9ment dans cette br\u00e8che que s&rsquo;ins\u00e8re la distribution triangulaire. Caract\u00e9ris\u00e9e par une g\u00e9om\u00e9trie polygonale simple et intuitive, cette loi continue \u00e0 support compact permet d&rsquo;encapsuler la variabilit\u00e9 d&rsquo;un ph\u00e9nom\u00e8ne al\u00e9atoire \u00e0 l&rsquo;aide d&rsquo;un triplet de param\u00e8tres particuli\u00e8rement intelligibles : une borne inf\u00e9rieure optimiste, une borne sup\u00e9rieure pessimiste, et un mode repr\u00e9sentant l&rsquo;\u00e9tat le plus probable du syst\u00e8me. L&rsquo;environnement computationnel R, enrichi par des \u00e9cosyst\u00e8mes m\u00e9trologiques et environnementaux avanc\u00e9s tels que le package <a rel=\"noopener noreferrer\" href=\"https:\/\/cran.r-project.org\/package=EnvStats\">EnvStats<\/a>, fournit un arsenal analytique complet permettant non seulement d&rsquo;\u00e9valuer les densit\u00e9s et les probabilit\u00e9s cumul\u00e9es de cette loi, mais \u00e9galement d&rsquo;ex\u00e9cuter des inversions quantiliques et des simulations stochastiques \u00e0 haute cadence.<\/p>\n<p>Ce guide exhaustif a pour vocation d&rsquo;explorer en profondeur les fondements th\u00e9oriques, les formulations analytiques et les impl\u00e9mentations computationnelles de la distribution triangulaire dans l&rsquo;environnement R. \u00c0 travers un parcours alliant d\u00e9ductions math\u00e9matiques formelles, scripts reproductibles, \u00e9tudes de sensibilit\u00e9 et applications concr\u00e8tes en mod\u00e9lisation psychologique et manag\u00e9riale, cet article fournit aux praticiens et chercheurs les outils n\u00e9cessaires pour int\u00e9grer cette distribution avec un haut niveau de rigueur scientifique au sein de leurs protocoles de recherche et de leurs algorithmes de simulation de Monte-Carlo.<\/p>\n<h2>1. Introduction th\u00e9orique et fondements de la distribution triangulaire<\/h2>\n<p>### 1.1 D\u00e9finition conceptuelle et g\u00e9om\u00e9trie de la distribution<\/p>\n<p>La distribution triangulaire est une loi de probabilit\u00e9 continue d\u00e9finie exclusivement sur un intervalle r\u00e9el ferm\u00e9 et born\u00e9, traditionnellement not\u00e9 <span class=\"arabpsy-math-inline\" data-latex=\"[a, b]\">$[a, b]$<\/span>. Contrairement aux lois classiques dont le support s&rsquo;\u00e9tend sur l&rsquo;ensemble de la droite r\u00e9elle <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbb{R}\">$\\mathbb{R}$<\/span> ou sur la demi-droite positive <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbb{R}^+\">$\\mathbb{R}^+$<\/span>, la distribution triangulaire contraint strictement la variable al\u00e9atoire \u00e0 \u00e9voluer \u00e0 l&rsquo;int\u00e9rieur de limites physiques ou th\u00e9oriques infranchissables. Sa fonction de densit\u00e9 de probabilit\u00e9 (PDF, pour *Probability Density Function*) se distingue visuellement par une forme polygonale univari\u00e9e compos\u00e9e de deux segments lin\u00e9aires continus qui se rejoignent \u00e0 un sommet unique, conf\u00e9rant \u00e0 la courbe l&rsquo;aspect d&rsquo;un triangle g\u00e9om\u00e9trique pos\u00e9 sur l&rsquo;axe des abscisses.<\/p>\n<p>Cette g\u00e9om\u00e9trie univari\u00e9e conf\u00e8re \u00e0 la distribution une transparence interpr\u00e9tative singuli\u00e8re. Dans les situations o\u00f9 l&rsquo;induction statistique pure est compromise par l&rsquo;absence ou l&rsquo;obsolescence des s\u00e9ries chronologiques, le mod\u00e9lisateur doit s&rsquo;appuyer sur la d\u00e9duction bay\u00e9sienne ou l&rsquo;\u00e9licitation d&rsquo;experts. Contrairement \u00e0 la loi normale, qui attribue une probabilit\u00e9 asymptotique non nulle \u00e0 des valeurs arbitrairement \u00e9loign\u00e9es de la moyenne \u2014 ce qui peut g\u00e9n\u00e9rer des aberrations m\u00e9thodologiques telles que des dur\u00e9es de traitement ou des co\u00fbts financiers n\u00e9gatifs \u2014, la distribution triangulaire garantit une troncature naturelle et absolue du support.<\/p>\n<p>Par rapport \u00e0 la distribution uniforme continue, qui postule une \u00e9quiprobabilit\u00e9 totale entre deux bornes fixes et traduit une ignorance \u00e9pist\u00e9mique absolue, la distribution triangulaire r\u00e9introduit une concentration de probabilit\u00e9 autour d&rsquo;une valeur nodale pr\u00e9f\u00e9rentielle. Elle r\u00e9alise ainsi un compromis analytique optimal entre la rigidit\u00e9 non informative d&rsquo;une loi uniforme et la complexit\u00e9 param\u00e9trique de distributions asym\u00e9triques \u00e0 queues lourdes. La surface totale d\u00e9limit\u00e9e par ce polygone triangulaire au-dessus de l&rsquo;axe des abscisses est rigoureusement \u00e9gale \u00e0 un, satisfaisant ainsi les axiomes de Kolmogorov r\u00e9gissant la th\u00e9orie de la mesure de probabilit\u00e9.<\/p>\n<p>### 1.2 Param\u00e9trage math\u00e9matique : triplets de param\u00e8tres (a, b, c)<\/p>\n<p>La param\u00e9trisation standard de la distribution triangulaire repose sur un triplet de nombres r\u00e9els ordonn\u00e9s, universellement d\u00e9sign\u00e9s par la notation <span class=\"arabpsy-math-inline\" data-latex=\"(a, b, c)\">$(a, b, c)$<\/span>. Chaque composante de ce triplet remplit une fonction structurelle d\u00e9terminante dans la configuration g\u00e9om\u00e9trique de la densit\u00e9 :<\/p>\n<ul>\n<li><strong>Le param\u00e8tre <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> (borne inf\u00e9rieure) :<\/strong> Il formalise le minimum th\u00e9orique ou empirique en de\u00e7\u00e0 duquel la variable al\u00e9atoire ne peut descendre sous aucune condition. La densit\u00e9 de probabilit\u00e9 est strictement nulle pour tout <span class=\"arabpsy-math-inline\" data-latex=\"x &lt; a\">$x &lt; a$<\/span>.<\/li>\n<li><strong>Le param\u00e8tre <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> (borne sup\u00e9rieure) :<\/strong> Il repr\u00e9sente le maximum concevable, la limite sup\u00e9rieure absolue du ph\u00e9nom\u00e8ne observ\u00e9. La densit\u00e9 s&rsquo;annule identiquement pour tout <span class=\"arabpsy-math-inline\" data-latex=\"x &gt; b\">$x &gt; b$<\/span>.<\/li>\n<li><strong>Le param\u00e8tre <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span> (mode ou pic de probabilit\u00e9) :<\/strong> Il correspond \u00e0 la valeur la plus fr\u00e9quente, c&rsquo;est-\u00e0-dire l&rsquo;abscisse pour laquelle la fonction de densit\u00e9 de probabilit\u00e9 atteint son maximum global, formant l&rsquo;apex du triangle.<\/li>\n<\/ul>\n<p>La validit\u00e9 math\u00e9matique du mod\u00e8le impose le respect strict de l&rsquo;in\u00e9galit\u00e9 ordinale <span class=\"arabpsy-math-inline\" data-latex=\"a le c le b\">$a le c le b$<\/span>, avec la condition de non-d\u00e9g\u00e9n\u00e9rescence suppl\u00e9mentaire stipulant que <span class=\"arabpsy-math-inline\" data-latex=\"a &lt; b\">$a &lt; b$<\/span>. Si <span class=\"arabpsy-math-inline\" data-latex=\"a = b\">$a = b$<\/span>, la distribution s&#039;effondre en une masse de Dirac d\u00e9terministe d\u00e9pourvue de variance. La flexibilit\u00e9 de cette distribution \u00e9mane de la position relative du mode <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span> au sein de l&#039;intervalle <span class=\"arabpsy-math-inline\" data-latex=\"[a, b]\">$[a, b]$<\/span>. <\/p>\n<p>Lorsque le mode co\u00efncide parfaitement avec le centre du segment, tel que <span class=\"arabpsy-math-inline\" data-latex=\"c = (a + b) \/ 2\">$c = (a + b) \/ 2$<\/span>, la distribution triangulaire devient parfaitement sym\u00e9trique, son esp\u00e9rance math\u00e9matique s&#039;alignant sur sa m\u00e9diane et son mode. En revanche, lorsque <span class=\"arabpsy-math-inline\" data-latex=\"c  (a + b) \/ 2\">$c  (a + b) \/ 2$<\/span> engendre une asym\u00e9trie n\u00e9gative (\u00e9talement vers la gauche). Enfin, les cas limites o\u00f9 <span class=\"arabpsy-math-inline\" data-latex=\"c = a\">$c = a$<\/span> ou <span class=\"arabpsy-math-inline\" data-latex=\"c = b\">$c = b$<\/span> transforment le polygone en un triangle rectangle, produisant des distributions strictement d\u00e9croissantes ou croissantes sur leur domaine.<\/p>\n<figure class=\"wpt-preserved-image\"><img fetchpriority=\"high\" decoding=\"async\" src=\"http:\/\/french.arabpsychology.com\/wp-content\/uploads\/2026\/09\/trianglular1-1-2.png\" alt=\"Triangular distribution\" \/><figcaption>Triangular distribution<\/figcaption><\/figure>\n<p>### 1.3 Champs d&rsquo;application scientifiques et contextes d&rsquo;usage<\/p>\n<p>Historiquement, la distribution triangulaire a acquis ses lettres de noblesse dans le domaine de la recherche op\u00e9rationnelle et de l&rsquo;ing\u00e9nierie de la d\u00e9cision lors du d\u00e9veloppement des m\u00e9thodologies de planification de projet, notamment dans le cadre de la m\u00e9thode <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Program_evaluation_and_review_technique\">PERT (Program Evaluation and Review Technique)<\/a> d\u00e9velopp\u00e9e dans les ann\u00e9es 1950. Dans ces contextes industriels, l&rsquo;estimation de la dur\u00e9e d&rsquo;une t\u00e2che critique ne pouvait s&rsquo;appuyer sur des bases de donn\u00e9es massives ; les ing\u00e9nieurs \u00e9taient alors invit\u00e9s \u00e0 fournir une estimation optimiste (<span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>), une estimation pessimiste (<span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>), et une estimation r\u00e9aliste (<span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>). La loi triangulaire s&rsquo;est imm\u00e9diatement impos\u00e9e comme la structure probabiliste la plus maniable pour convertir ces intuitions fonctionnelles en distributions continues calculables.<\/p>\n<p>Au-del\u00e0 de l&rsquo;ing\u00e9nierie financi\u00e8re et de la logistique, cette distribution joue un r\u00f4le pr\u00e9pond\u00e9rant en sciences cognitives, en psychologie exp\u00e9rimentale et en ergonomie comportementale. Lors de l&rsquo;\u00e9valuation des processus d\u00e9cisionnels humains ou de la formalisation des temps de r\u00e9ponse sensorimoteurs, elle permet de repr\u00e9senter de mani\u00e8re fid\u00e8le les contraintes biom\u00e9caniques incompressibles (le temps de latence neuronal minimal <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>), la performance habituelle modale (<span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>), et les d\u00e9rives attentionnelles maximales (<span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>). <\/p>\n<p>En analyse de risque moderne, la distribution triangulaire est r\u00e9guli\u00e8rement compar\u00e9e ou substitu\u00e9e \u00e0 la <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Beta_distribution\">distribution B\u00eata<\/a>. Bien que la loi B\u00eata offre l&rsquo;avantage d&rsquo;une r\u00e9gularit\u00e9 analytique caract\u00e9ris\u00e9e par des d\u00e9riv\u00e9es continues sur l&rsquo;ensemble de son domaine, elle requiert l&rsquo;estimation pr\u00e9alable de deux param\u00e8tres de forme abstraits (<span class=\"arabpsy-math-inline\" data-latex=\"\\alpha\">$\\alpha$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"\\beta\">$\\beta$<\/span>) souvent d\u00e9nu\u00e9s de signification tangible directe pour les non-statisticiens. La distribution triangulaire pallie cette limitation cognitive en conservant une correspondance univoque et imm\u00e9diate entre ses param\u00e8tres math\u00e9matiques et les observations r\u00e9elles formul\u00e9es par les experts m\u00e9tier.<\/p>\n<h2>2. Propri\u00e9t\u00e9s math\u00e9matiques et formulation analytique<\/h2>\n<p>### 2.1 Fonction de densit\u00e9 de probabilit\u00e9 (PDF)<\/p>\n<p>Sur le plan analytique, la fonction de densit\u00e9 de probabilit\u00e9 d&rsquo;une variable al\u00e9atoire <span class=\"arabpsy-math-inline\" data-latex=\"X\">$X$<\/span> suivant une loi triangulaire r\u00e9gie par le triplet <span class=\"arabpsy-math-inline\" data-latex=\"(a, b, c)\">$(a, b, c)$<\/span> est d\u00e9finie par une fonction lin\u00e9aire par morceaux. L&rsquo;expression math\u00e9matique formelle se scinde en deux branches distinctes se rejoignant au point critique <span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"f(x) = \\begin{\\cases} \n0 &amp;a\\mp; \\text{si } x &lt; a  \n\\frac{2(x - a)}{(b - a)(c - a)} &amp;a\\mp; \\text{si } a le x le c  \n\\frac{2(b - x)}{(b - a)(b - c)} &amp;a\\mp; \\text{si } c  b \n\\end{\\cases}\">$$f(x) = \\begin{\\cases}<br \/>\n0 &#038;a\\mp; \\text{si } x &lt; a<br \/>\n\\frac{2(x &#8211; a)}{(b &#8211; a)(c &#8211; a)} &#038;a\\mp; \\text{si } a le x le c<br \/>\n\\frac{2(b &#8211; x)}{(b &#8211; a)(b &#8211; c)} &#038;a\\mp; \\text{si } c  b<br \/>\n\\end{\\cases}$$<\/span><\/p>\n<p>Dans l&rsquo;\u00e9ventualit\u00e9 o\u00f9 <span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span>, les deux expressions convergent vers une ordonn\u00e9e commune repr\u00e9sentant la hauteur maximale du triangle, not\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"h\">$h$<\/span>. Cette hauteur est d\u00e9termin\u00e9e par la formule \u00e9l\u00e9mentaire r\u00e9gissant l&rsquo;aire d&rsquo;un triangle g\u00e9om\u00e9trique, selon laquelle l&rsquo;aire totale doit satisfaire la condition d&rsquo;int\u00e9gration unitaire :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\text{Aire} = \\frac{\\text{Base} \\times \\text{Hauteur}}{2} = \\frac{(b - a) \\times h}{2} = 1 implies h = \\frac{2}{b - a}\">$$\\text{Aire} = \\frac{\\text{Base} \\times \\text{Hauteur}}{2} = \\frac{(b &#8211; a) \\times h}{2} = 1 implies h = \\frac{2}{b &#8211; a}$$<\/span><\/p>\n<p>Cette hauteur <span class=\"arabpsy-math-inline\" data-latex=\"h = 2 \/ (b - a)\">$h = 2 \/ (b &#8211; a)$<\/span> met en lumi\u00e8re une propri\u00e9t\u00e9 math\u00e9matique fondamentale : l&rsquo;ordonn\u00e9e au sommet est strictement ind\u00e9pendante de la position horizontale du mode <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>. Que le mode soit localis\u00e9 au voisinage imm\u00e9diat de la borne inf\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>, au centre g\u00e9om\u00e9trique, ou contre la borne sup\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>, l&rsquo;amplitude maximale de la densit\u00e9 de probabilit\u00e9 ne d\u00e9pend que de l&rsquo;\u00e9tendue globale du support de d\u00e9finition, soit la largeur de la base <span class=\"arabpsy-math-inline\" data-latex=\"(b - a)\">$(b &#8211; a)$<\/span>.<\/p>\n<p>Pour v\u00e9rifier la validit\u00e9 de cette densit\u00e9, proc\u00e9dons \u00e0 l&rsquo;int\u00e9gration analytique sur le domaine compact <span class=\"arabpsy-math-inline\" data-latex=\"[a, b]\">$[a, b]$<\/span> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\int_{a}^{b} f(x) , dx = \\int_{a}^{c} \\frac{2(x - a)}{(b - a)(c - a)} , dx + \\int_{c}^{b} \\frac{2(b - x)}{(b - a)(b - c)} , dx\">$$\\int_{a}^{b} f(x) , dx = \\int_{a}^{c} \\frac{2(x &#8211; a)}{(b &#8211; a)(c &#8211; a)} , dx + \\int_{c}^{b} \\frac{2(b &#8211; x)}{(b &#8211; a)(b &#8211; c)} , dx$$<\/span><\/p>\n<p>En calculant la premi\u00e8re int\u00e9grale relative au segment ascendant :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\int_{a}^{c} \\frac{2(x - a)}{(b - a)(c - a)} , dx = \\frac{2}{(b - a)(c - a)} \\left[ \\frac{(x - a)^2}{2} \\right]_{a}^{c} = \\frac{2}{(b - a)(c - a)} \\cdot \\frac{(c - a)^2}{2} = \\frac{c - a}{b - a}\">$$\\int_{a}^{c} \\frac{2(x &#8211; a)}{(b &#8211; a)(c &#8211; a)} , dx = \\frac{2}{(b &#8211; a)(c &#8211; a)} \\left[ \\frac{(x &#8211; a)^2}{2} \\right]_{a}^{c} = \\frac{2}{(b &#8211; a)(c &#8211; a)} \\cdot \\frac{(c &#8211; a)^2}{2} = \\frac{c &#8211; a}{b &#8211; a}$$<\/span><\/p>\n<p>En calculant la seconde int\u00e9grale relative au segment descendant :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\int_{c}^{b} \\frac{2(b - x)}{(b - a)(b - c)} , dx = \\frac{2}{(b - a)(b - c)} \\left[ -\\frac{(b - x)^2}{2} \\right]_{c}^{b} = \\frac{2}{(b - a)(b - c)} \\cdot \\frac{(b - c)^2}{2} = \\frac{b - c}{b - a}\">$$\\int_{c}^{b} \\frac{2(b &#8211; x)}{(b &#8211; a)(b &#8211; c)} , dx = \\frac{2}{(b &#8211; a)(b &#8211; c)} \\left[ -\\frac{(b &#8211; x)^2}{2} \\right]_{c}^{b} = \\frac{2}{(b &#8211; a)(b &#8211; c)} \\cdot \\frac{(b &#8211; c)^2}{2} = \\frac{b &#8211; c}{b &#8211; a}$$<\/span><\/p>\n<p>En sommant ces deux contributions g\u00e9om\u00e9triques partielles, nous obtenons l&rsquo;int\u00e9grale totale :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\frac{c - a}{b - a} + \\frac{b - c}{b - a} = \\frac{(c - a) + (b - c)}{b - a} = \\frac{b - a}{b - a} = 1\">$$\\frac{c &#8211; a}{b &#8211; a} + \\frac{b &#8211; c}{b &#8211; a} = \\frac{(c &#8211; a) + (b &#8211; c)}{b &#8211; a} = \\frac{b &#8211; a}{b &#8211; a} = 1$$<\/span><\/p>\n<p>La d\u00e9monstration confirme ainsi que la masse de probabilit\u00e9 unitaire est conserv\u00e9e sur l&rsquo;ensemble du domaine de d\u00e9finition.<\/p>\n<p>### 2.2 Fonction de r\u00e9partition cumulative (CDF)<\/p>\n<p>La fonction de r\u00e9partition cumulative, not\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"F(x) = P(X le x)\">$F(x) = P(X le x)$<\/span>, traduit l&rsquo;accumulation progressive de probabilit\u00e9 depuis la borne inf\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> jusqu&rsquo;\u00e0 une valeur de quantile cible <span class=\"arabpsy-math-inline\" data-latex=\"x\">$x$<\/span>. Elle s&rsquo;obtient formellement par l&rsquo;int\u00e9gration d\u00e9finie de la fonction de densit\u00e9 de probabilit\u00e9 <span class=\"arabpsy-math-inline\" data-latex=\"f(t)\">$f(t)$<\/span> sur l&rsquo;intervalle <span class=\"arabpsy-math-inline\" data-latex=\"[a, x]\">$[a, x]$<\/span>. Compte tenu de la nature lin\u00e9aire par morceaux de la densit\u00e9, la fonction de r\u00e9partition est constitu\u00e9e de deux segments paraboliques continus distincts :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"F(x) = \\begin{\\cases} \n0 &amp;a\\mp; \\text{si } x &lt; a  \n\\frac{(x - a)^2}{(b - a)(c - a)} &amp;a\\mp; \\text{si } a le x le c  \n1 - \\frac{(b - x)^2}{(b - a)(b - c)} &amp;a\\mp; \\text{si } c  b \n\\end{\\cases}\">$$F(x) = \\begin{\\cases}<br \/>\n0 &#038;a\\mp; \\text{si } x &lt; a<br \/>\n\\frac{(x &#8211; a)^2}{(b &#8211; a)(c &#8211; a)} &#038;a\\mp; \\text{si } a le x le c<br \/>\n1 &#8211; \\frac{(b &#8211; x)^2}{(b &#8211; a)(b &#8211; c)} &#038;a\\mp; \\text{si } c  b<br \/>\n\\end{\\cases}$$<\/span><\/p>\n<p>Sur le premier sous-intervalle <span class=\"arabpsy-math-inline\" data-latex=\"[a, c]\">$[a, c]$<\/span>, la probabilit\u00e9 cumul\u00e9e cro\u00eet de mani\u00e8re quadratique convexe en fonction de l&rsquo;\u00e9loignement par rapport \u00e0 la borne inf\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>. Au point de jonction singulier o\u00f9 le quantile consid\u00e9r\u00e9 co\u00efncide rigoureusement avec le mode de la distribution (<span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span>), la fonction de r\u00e9partition prend une valeur remarquable :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"F(c) = \\frac{(c - a)^2}{(b - a)(c - a)} = \\frac{c - a}{b - a}\">$$F(c) = \\frac{(c &#8211; a)^2}{(b &#8211; a)(c &#8211; a)} = \\frac{c &#8211; a}{b &#8211; a}$$<\/span><\/p>\n<p>Cette valeur scalaire <span class=\"arabpsy-math-inline\" data-latex=\"F(c)\">$F(c)$<\/span> repr\u00e9sente le ratio exact de la largeur du segment inf\u00e9rieur par rapport \u00e0 l&rsquo;\u00e9tendue totale du support. Elle partitionne l&rsquo;espace des probabilit\u00e9s cumul\u00e9es en deux r\u00e9gimes de calcul distincts. D\u00e8s lors que <span class=\"arabpsy-math-inline\" data-latex=\"x\">$x$<\/span> d\u00e9passe le mode (<span class=\"arabpsy-math-inline\" data-latex=\"x &gt; c\">$x &gt; c$<\/span>), le calcul de la probabilit\u00e9 cumul\u00e9e fait intervenir le compl\u00e9ment quadratique concave par rapport \u00e0 l&rsquo;unit\u00e9, refl\u00e9tant l&rsquo;att\u00e9nuation progressive de l&rsquo;accumulation de probabilit\u00e9 \u00e0 mesure que le quantile se rapproche de la borne sup\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>.<\/p>\n<p>Sur le plan de l&rsquo;analyse math\u00e9matique, la fonction de r\u00e9partition <span class=\"arabpsy-math-inline\" data-latex=\"F(x)\">$F(x)$<\/span> poss\u00e8de la propri\u00e9t\u00e9 de continuit\u00e9 de classe <span class=\"arabpsy-math-inline\" data-latex=\"\\mathcal{C}^1([a, b])\">$\\mathcal{C}^1([a, b])$<\/span>. Bien que sa d\u00e9riv\u00e9e seconde pr\u00e9sente une discontinuit\u00e9 de saut au point <span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span> en raison de la rupture de pente de la densit\u00e9, la d\u00e9riv\u00e9e premi\u00e8re <span class=\"arabpsy-math-inline\" data-latex=\"F&#039;(x) = f(x)\">$F'(x) = f(x)$<\/span> est strictement continue en <span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span>, assurant l&rsquo;absence de toute transition abrupte dans la probabilit\u00e9 cumul\u00e9e.<\/p>\n<p>### 2.3 Moments statistiques : esp\u00e9rance, variance et asym\u00e9trie<\/p>\n<p>Les moments statistiques d&rsquo;une variable al\u00e9atoire continue fournissent une quantification num\u00e9rique pr\u00e9cise de sa tendance centrale, de son \u00e9talement autour de la moyenne et de la d\u00e9formation morphologique de son profil probabiliste. Pour la loi triangulaire, ces moments se d\u00e9rivent par int\u00e9gration polynomiale standard.<\/p>\n<p>L&rsquo;esp\u00e9rance math\u00e9matique arithm\u00e9tique, not\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"E[X]\">$E[X]$<\/span>, correspond au centre de gravit\u00e9 g\u00e9om\u00e9trique de la surface triangulaire. Elle est d\u00e9finie par l&rsquo;int\u00e9grale du produit <span class=\"arabpsy-math-inline\" data-latex=\"x \\cdot f(x)\">$x \\cdot f(x)$<\/span> sur le support <span class=\"arabpsy-math-inline\" data-latex=\"[a, b]\">$[a, b]$<\/span> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"E[X] = \\int_{a}^{b} x \\cdot f(x) , dx = \\int_{a}^{c} \\frac{2x(x - a)}{(b - a)(c - a)} , dx + \\int_{c}^{b} \\frac{2x(b - x)}{(b - a)(b - c)} , dx\">$$E[X] = \\int_{a}^{b} x \\cdot f(x) , dx = \\int_{a}^{c} \\frac{2x(x &#8211; a)}{(b &#8211; a)(c &#8211; a)} , dx + \\int_{c}^{b} \\frac{2x(b &#8211; x)}{(b &#8211; a)(b &#8211; c)} , dx$$<\/span><\/p>\n<p>Apr\u00e8s d\u00e9veloppement alg\u00e9brique et simplification des termes polynomiaux d&rsquo;ordre 3, cette int\u00e9gration produit une expression d&rsquo;une remarquable simplicit\u00e9 et d&rsquo;une sym\u00e9trie parfaite :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"E[X] = \\frac{a + b + c}{3}\">$$E[X] = \\frac{a + b + c}{3}$$<\/span><\/p>\n<p>Ce r\u00e9sultat d\u00e9montre que l&rsquo;esp\u00e9rance arithm\u00e9tique d&rsquo;une distribution triangulaire correspond \u00e0 la moyenne arithm\u00e9tique \u00e9l\u00e9mentaire de ses trois param\u00e8tres fondamentaux.<\/p>\n<p>La variance th\u00e9orique, not\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"\\text{Var}(X) = E[X^2] - (E[X])^2\">$\\text{Var}(X) = E[X^2] &#8211; (E[X])^2$<\/span>, quantifie la dispersion quadratique des r\u00e9alisations de la variable al\u00e9atoire autour de son centre de gravit\u00e9 :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\text{Var}(X) = \\frac{a^2 + b^2 + c^2 - ab - ac - bc}{18}\">$$\\text{Var}(X) = \\frac{a^2 + b^2 + c^2 &#8211; ab &#8211; ac &#8211; bc}{18}$$<\/span><\/p>\n<p>Une formulation \u00e9quivalente particuli\u00e8rement instructive met en \u00e9vidence les \u00e9carts quadratiques inter-param\u00e9triques :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\text{Var}(X) = \\frac{(a - b)^2 + (a - c)^2 + (b - c)^2}{36}\">$$\\text{Var}(X) = \\frac{(a &#8211; b)^2 + (a &#8211; c)^2 + (b &#8211; c)^2}{36}$$<\/span><\/p>\n<p>L&rsquo;\u00e9cart-type th\u00e9orique <span class=\"arabpsy-math-inline\" data-latex=\"\\sigma_X\">$\\sigma_X$<\/span> s&rsquo;obtient imm\u00e9diatement en extrayant la racine carr\u00e9e arithm\u00e9tique de la variance. <\/p>\n<p>Le coefficient d&rsquo;asym\u00e9trie de Fisher-Pearson (*skewness*), not\u00e9 <span class=\"arabpsy-math-inline\" data-latex=\"\\gamma_1\">$\\gamma_1$<\/span>, est d\u00e9termin\u00e9 par le troisi\u00e8me moment centr\u00e9 normalis\u00e9 :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\gamma_1 = \\frac{E[(X - E[X])^3]}{\\sigma_X^3} = \\frac{\\sqrt{2}(a + b - 2c)(2a - b - c)(a - 2b + c)}{5 \\left( a^2 + b^2 + c^2 - ab - ac - bc \\right)^{3\/2}}\">$$\\gamma_1 = \\frac{E[(X &#8211; E[X])^3]}{\\sigma_X^3} = \\frac{\\sqrt{2}(a + b &#8211; 2c)(2a &#8211; b &#8211; c)(a &#8211; 2b + c)}{5 \\left( a^2 + b^2 + c^2 &#8211; ab &#8211; ac &#8211; bc \\right)^{3\/2}}$$<\/span><\/p>\n<p>Ce coefficient fournit une mesure intrins\u00e8que de la d\u00e9viation par rapport \u00e0 la sym\u00e9trie :<\/p>\n<ul>\n<li>Si <span class=\"arabpsy-math-inline\" data-latex=\"c = (a + b) \/ 2\">$c = (a + b) \/ 2$<\/span>, le terme <span class=\"arabpsy-math-inline\" data-latex=\"(a + b - 2c)\">$(a + b &#8211; 2c)$<\/span> s&rsquo;annule, entra\u00eenant <span class=\"arabpsy-math-inline\" data-latex=\"\\gamma_1 = 0\">$\\gamma_1 = 0$<\/span>. La distribution est alors parfaitement sym\u00e9trique.<\/li>\n<li>Si <span class=\"arabpsy-math-inline\" data-latex=\"c  0\">$c  0$<\/span>), mat\u00e9rialisant un \u00e9talement de la queue de distribution vers la droite.<\/li>\n<li>Si <span class=\"arabpsy-math-inline\" data-latex=\"c &gt; (a + b) \/ 2\">$c &gt; (a + b) \/ 2$<\/span>, le coefficient devient strictement n\u00e9gatif (<span class=\"arabpsy-math-inline\" data-latex=\"\\gamma_1 &lt; 0\">$\\gamma_1 &lt; 0$<\/span>), caract\u00e9risant une queue de distribution allong\u00e9e vers les valeurs minimales de la distribution.<\/li>\n<\/ul>\n<h2>3. \u00c9cosyst\u00e8me logiciel sous R : installation et d\u00e9pendances<\/h2>\n<p>### 3.1 Pr\u00e9sentation du package sp\u00e9cialis\u00e9 EnvStats<\/p>\n<p>Contrairement aux distributions classiques telles que les lois normale, gamma, de Poisson ou de Student qui sont int\u00e9gr\u00e9es nativement dans le sous-syst\u00e8me de base de R via le composant `stats`, la distribution triangulaire ne dispose pas d&rsquo;impl\u00e9mentation par d\u00e9faut dans le noyau de R de base. Pour manipuler cette loi avec des standards de fiabilit\u00e9 num\u00e9rique acad\u00e9miques, la communaut\u00e9 s&rsquo;appuie principalement sur le package sp\u00e9cialis\u00e9 <a rel=\"noopener noreferrer\" href=\"https:\/\/cran.r-project.org\/package=EnvStats\">EnvStats<\/a>.<\/p>\n<p>Initialement con\u00e7u par le biostatisticien Steven P. Millard pour accompagner les protocoles d&rsquo;\u00e9chantillonnage et de mod\u00e9lisation de l&rsquo;Agence am\u00e9ricaine de protection de l&rsquo;environnement (US EPA), `EnvStats` s&rsquo;est impos\u00e9 comme une r\u00e9f\u00e9rence en m\u00e9trologie environnementale, en toxicologie quantitative et en biochimie pr\u00e9dictive. Ce package int\u00e8gre une collection compl\u00e8te de routines analytiques couvrant un large \u00e9ventail de lois continues et discr\u00e8tes, allant des distributions de valeurs extr\u00eames aux lois censur\u00e9es et tronqu\u00e9es. Au sein d&rsquo;EnvStats, la distribution triangulaire b\u00e9n\u00e9ficie d&rsquo;une infrastructure algorithmique robuste, vectoris\u00e9e et optimis\u00e9e pour pr\u00e9venir les instabilit\u00e9s num\u00e9riques aux fronti\u00e8res du support compact.<\/p>\n<p>### 3.2 Installation et chargement des biblioth\u00e8ques n\u00e9cessaires<\/p>\n<p>L&rsquo;installation du package `EnvStats` s&rsquo;op\u00e8re directement depuis le r\u00e9seau officiel du Comprehensive R Archive Network (CRAN). Cette proc\u00e9dure s&rsquo;ex\u00e9cute \u00e0 l&rsquo;aide de la commande standard `install.packages()`. Il est fortement recommand\u00e9 d&rsquo;assurer l&rsquo;installation conjointe des d\u00e9pendances logicielles requises pour garantir une manipulation fluide des structures de donn\u00e9es et des pipelines de visualisation graphique :<\/p>\n<p><code>install.packages(\"EnvStats\")<br \/>\ninstall.packages(\"ggplot2\")<br \/>\ninstall.packages(\"dplyr\")<br \/>\ninstall.packages(\"scales\")<br \/>\n<\/code><\/p>\n<p>Une fois l&rsquo;installation termin\u00e9e, l&rsquo;activation des fonctionnalit\u00e9s statistiques s&rsquo;effectue au sein de votre session ou script R via la fonction `library()` :<\/p>\n<p><code>library(EnvStats)<br \/>\nlibrary(ggplot2)<br \/>\nlibrary(dplyr)<br \/>\nlibrary(scales)<br \/>\n<\/code><\/p>\n<p>Lors du chargement en m\u00e9moire d&rsquo;EnvStats, l&rsquo;interpr\u00e9teur R est susceptible de notifier certains avertissements relatifs \u00e0 des masquages d&rsquo;espaces de noms (*namespace conflicts*). Notamment, plusieurs fonctions d&rsquo;EnvStats peuvent entrer en collision nominale avec des extensions analytiques du `tidyverse` ou de packages d&rsquo;analyse de survie (par exemple la fonction `predict` ou certaines routines de manipulation de r\u00e9sidus). Pour \u00e9liminer toute ambigu\u00eft\u00e9 syntaxique dans les environnements de production ou les scripts de recherche hautement reproductibles, il demeure pr\u00e9f\u00e9rable d&rsquo;invoquer les fonctions de distribution triangulaire soit directement si aucun conflit n&rsquo;est r\u00e9pertori\u00e9, soit en pr\u00e9fixant explicitement les instructions par le nom de l&rsquo;espace de noms : `EnvStats::ptri()`, `EnvStats::dtri()`, `EnvStats::qtri()`, et `EnvStats::rtri()`.<\/p>\n<p>### 3.3 Packages alternatifs pour la distribution triangulaire<\/p>\n<p>Bien qu&rsquo;`EnvStats` repr\u00e9sente un choix pr\u00e9f\u00e9rentiel en raison de sa compl\u00e9tude et de ses fonctionnalit\u00e9s diagnostiques avanc\u00e9es, il existe des packages alternatifs notables au sein du d\u00e9p\u00f4t CRAN :<\/p>\n<ul>\n<li><strong>Le package <code>triangle<\/code> :<\/strong> D\u00e9velopp\u00e9 par Rob Carnell, ce package minimaliste et hautement focalis\u00e9 impl\u00e9mente le quatuor standard <code>dtriangle()<\/code>, <code>ptriangle()<\/code>, <code>qtriangle()<\/code>, et <code>rtriangle()<\/code>. Sa syntaxe utilise traditionnellement les arguments <code>a<\/code>, <code>b<\/code>, et <code>c<\/code> au lieu des d\u00e9signations <code>min<\/code>, <code>max<\/code>, et <code>mode<\/code>. Cette librairie pr\u00e9sente une empreinte m\u00e9moire r\u00e9duite, ce qui en fait une option envisageable pour des scripts d&rsquo;optimisation num\u00e9rique embarqu\u00e9s.<\/li>\n<li><strong>Le package <code>extraDistr<\/code> :<\/strong> Ce package fournit une suite de distributions statistiques univari\u00e9es et multivari\u00e9es compl\u00e9mentaires, dont la distribution triangulaire via <code>dtriang()<\/code>. \u00c9crit principalement en C++ via Rcpp, il propose une vitesse d&rsquo;ex\u00e9cution \u00e9lev\u00e9e pour la g\u00e9n\u00e9ration pseudo-al\u00e9atoire intensive.<\/li>\n<\/ul>\n<p>N\u00e9anmoins, la nomenclature adopt\u00e9e par `EnvStats` pr\u00e9sente l&rsquo;avantage d&rsquo;une coh\u00e9rence s\u00e9mantique sup\u00e9rieure avec les standards de base de R en utilisant des identifiants explicites (`min`, `max`, `mode`), ce qui limite significativement les risques d&rsquo;inversion accidentelle des param\u00e8tres lors de la phase de d\u00e9veloppement d&rsquo;un mod\u00e8le statistique complexe.<\/p>\n<h2>4. Anatomie de la fonction ptri() dans le package EnvStats<\/h2>\n<p>### 4.1 Syntaxe formelle et sp\u00e9cification des arguments<\/p>\n<p>La fonction `ptri()` est l&rsquo;homologue d\u00e9di\u00e9 \u00e0 la distribution triangulaire de la famille des fonctions de r\u00e9partition cumulatives de R (telles que `pnorm()`, `pexp()`, ou `pbeta()`). Elle impl\u00e9mente directement la fonction math\u00e9matique <span class=\"arabpsy-math-inline\" data-latex=\"F(x) = P(X le q)\">$F(x) = P(X le q)$<\/span>. Sa signature formelle telle que document\u00e9e dans l&rsquo;API du package `EnvStats` s&rsquo;articule autour des arguments suivants :<\/p>\n<p><code>ptri(q, min = 0, max = 1, mode = 0.5, lower.tail = TRUE, log.p = FALSE)<br \/>\n<\/code><\/p>\n<p>L&rsquo;analyse technique de ces param\u00e8tres r\u00e9v\u00e8le les m\u00e9canismes de contr\u00f4le op\u00e9ratoires mis \u00e0 la disposition du mod\u00e9lisateur :<\/p>\n<ul>\n<li><strong><code>q<\/code> (vecteur de quantiles) :<\/strong> Il repr\u00e9sente la valeur scalaire ou le vecteur de valeurs num\u00e9riques r\u00e9elles pour lesquelles l&rsquo;utilisateur souhaite d\u00e9terminer la probabilit\u00e9 cumul\u00e9e associ\u00e9e.<\/li>\n<li><strong><code>min<\/code> (borne inf\u00e9rieure) :<\/strong> Fixe la borne inf\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> du support. Sa valeur par d\u00e9faut dans la signature d&rsquo;EnvStats est initialis\u00e9e \u00e0 $0$.<\/li>\n<li><strong><code>max<\/code> (borne sup\u00e9rieure) :<\/strong> Fixe la limite maximale admissible <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> de la distribution. Sa valeur par d\u00e9faut est fix\u00e9e \u00e0 $1$.<\/li>\n<li><strong><code>mode<\/code> (pic de distribution) :<\/strong> D\u00e9finit la valeur nodale la plus probable <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>. Sa valeur par d\u00e9faut s&rsquo;\u00e9l\u00e8ve \u00e0 $0.5$, configurant ainsi par d\u00e9faut une distribution triangulaire sym\u00e9trique sur l&rsquo;intervalle unitaire <span class=\"arabpsy-math-inline\" data-latex=\"[0, 1]\">$[0, 1]$<\/span>.<\/li>\n<li><strong><code>lower.tail<\/code> (indicateur bool\u00e9en) :<\/strong> Param\u00e8tre logique recevant <code>TRUE<\/code> par d\u00e9faut. Lorsqu&rsquo;il est \u00e9valu\u00e9 \u00e0 <code>TRUE<\/code>, la fonction retourne la probabilit\u00e9 cumulative unilat\u00e9rale inf\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"P(X le q)\">$P(X le q)$<\/span>. D\u00e8s lors qu&rsquo;il est positionn\u00e9 sur <code>FALSE<\/code>, la fonction \u00e9value directement la probabilit\u00e9 de survie ou de queue sup\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"P(X &gt; q)\">$P(X &gt; q)$<\/span>.<\/li>\n<li><strong><code>log.p<\/code> (transformation logarithmique) :<\/strong> Valeur bool\u00e9enne conditionnant l&rsquo;\u00e9chelle de sortie. Si <code>log.p = TRUE<\/code>, la fonction retourne le logarithme n\u00e9p\u00e9rien de la probabilit\u00e9, soit <span class=\"arabpsy-math-inline\" data-latex=\"ln(P)\">$ln(P)$<\/span>, ce qui s&rsquo;av\u00e8re fondamental lors de calculs d&rsquo;extr\u00eames probabilit\u00e9s afin d&rsquo;endiguer les ph\u00e9nom\u00e8nes d&rsquo;\u00e9vanouissement num\u00e9rique (*underflow*).<\/li>\n<\/ul>\n<p>Un atout d\u00e9terminant de l&rsquo;impl\u00e9mentation r\u00e9side dans sa vectorisation compl\u00e8te. \u00c0 l&rsquo;instar des op\u00e9rateurs vectoriels vectoris\u00e9s fondamentaux du noyau de R, les arguments `q`, `min`, `max`, et `mode` peuvent recevoir des vecteurs de longueurs variables. Le m\u00e9canisme standard de recyclage de vecteurs (*vector recycling*) est alors appliqu\u00e9, ce qui permet d&rsquo;\u00e9valuer simultan\u00e9ment des milliers de configurations param\u00e9triques en une unique ligne de commande sans recourir \u00e0 des boucles imp\u00e9ratives de type `for`.<\/p>\n<p>### 4.2 Comportement num\u00e9rique aux limites<\/p>\n<p>L&rsquo;\u00e9valuation algorithmique des fonctions de r\u00e9partition requiert une gestion rigoureuse des cas limites et des valeurs singuli\u00e8res pour maintenir la coh\u00e9rence structurelle du mod\u00e8le stochastique. L&rsquo;architecture de `ptri()` dans `EnvStats` a \u00e9t\u00e9 con\u00e7ue pour adh\u00e9rer aux r\u00e8gles formelles d&rsquo;analyse :<\/p>\n<p>D\u00e8s lors qu&rsquo;un quantile d&rsquo;entr\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"q\">$q$<\/span> se situe strictement en de\u00e7\u00e0 de la borne minimale d\u00e9clar\u00e9e (<span class=\"arabpsy-math-inline\" data-latex=\"q &lt; \\text{\\min}\">$q &lt; \\text{\\min}$<\/span>), la fonction retourne invariablement la valeur num\u00e9rique $0$. De m\u00eame, si le quantile exc\u00e8de la borne sup\u00e9rieure autoris\u00e9e (<span class=\"arabpsy-math-inline\" data-latex=\"q ge \\text{\\max}\">$q ge \\text{\\max}$<\/span>), `ptri()` retourne la valeur arithm\u00e9tique rigoureuse de $1$, traduisant l&#039;\u00e9puisement total de la mesure de probabilit\u00e9 sur le support born\u00e9.<\/p>\n<p>Lorsque le param\u00e8tre de mode co\u00efncide de fa\u00e7on d\u00e9g\u00e9n\u00e9r\u00e9e avec l&#039;une des bornes d&#039;extrusion, c&#039;est-\u00e0-dire si <span class=\"arabpsy-math-inline\" data-latex=\"\\text{mode} = \\text{\\min}\">$\\text{mode} = \\text{\\min}$<\/span> ou <span class=\"arabpsy-math-inline\" data-latex=\"\\text{mode} = \\text{\\max}\">$\\text{mode} = \\text{\\max}$<\/span>, la loi triangulaire se mue en une distribution en triangle rectangle. Dans cette configuration, `ptri()` adapte automatiquement son calcul en r\u00e9duisant l&#039;\u00e9valuation \u00e0 une seule des branches quadratiques de la formulation, \u00e9vitant ainsi des erreurs d&#039;ind\u00e9termination num\u00e9rique de type division par z\u00e9ro (<span class=\"arabpsy-math-inline\" data-latex=\"0\/0\">$0\/0$<\/span>) qui surviendraient si le terme <span class=\"arabpsy-math-inline\" data-latex=\"(c - a)\">$(c &#8211; a)$<\/span> ou <span class=\"arabpsy-math-inline\" data-latex=\"(b - c)\">$(b &#8211; c)$<\/span> apparaissait au d\u00e9nominateur sans garde de s\u00e9curit\u00e9 computationnelle.<\/p>\n<p>Concernant la pr\u00e9sence de valeurs non num\u00e9riques ou manquantes (`NA`, `NaN`, `Inf`, `-Inf`), la fonction `ptri()` propage imm\u00e9diatement la valeur `NA` pour les index correspondants, tout en \u00e9mettant un avertissement formel (*warning*) si des incoh\u00e9rences topologiques sont d\u00e9tect\u00e9es, comme l&#039;infraction \u00e0 la r\u00e8gle de classement <span class=\"arabpsy-math-inline\" data-latex=\"a le c le b\">$a le c le b$<\/span>.<\/p>\n<figure class=\"wpt-preserved-image\"><img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/french.arabpsychology.com\/wp-content\/uploads\/2026\/09\/trianglular2-3.png\" alt=\"\" \/><\/figure>\n<h2>5. Calcul de probabilit\u00e9s cumul\u00e9es inf\u00e9rieures avec ptri() (Exemple 1)<\/h2>\n<p>### 5.1 Formulation du sc\u00e9nario empirique de r\u00e9f\u00e9rence<\/p>\n<p>Pour illustrer concr\u00e8tement l&rsquo;usage de la fonction `ptri()`, formalisons un sc\u00e9nario appliqu\u00e9 de gestion pr\u00e9visionnelle de tr\u00e9sorerie et d&rsquo;analyse du risque commercial au sein d&rsquo;une entreprise op\u00e9rant dans le secteur de la distribution de technologies sp\u00e9cialis\u00e9es. <\/p>\n<p>La direction financi\u00e8re souhaite mod\u00e9liser les pr\u00e9visions de recettes commerciales hebdomadaires g\u00e9n\u00e9r\u00e9es par une nouvelle unit\u00e9 op\u00e9rationnelle. En raison du caract\u00e8re in\u00e9dit des conditions de march\u00e9 locales, aucune s\u00e9rie temporelle consolid\u00e9e n&rsquo;est disponible. Toutefois, un coll\u00e8ge de directeurs commerciaux et d&rsquo;analystes sectoriels s&rsquo;accorde sur les trois indicateurs pr\u00e9visionnels suivants :<\/p>\n<ul>\n<li><strong>Le plancher d&rsquo;activit\u00e9 minimale (<span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>) :<\/strong> M\u00eame sous une conjoncture particuli\u00e8rement d\u00e9grad\u00e9e, les recettes hebdomadaires ne peuvent descendre sous le seuil de $10,000$ euros (<span class=\"arabpsy-math-inline\" data-latex=\"a = 10,000\">$a = 10,000$<\/span>).<\/li>\n<li><strong>Le plafond d&rsquo;activit\u00e9 maximale (<span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>) :<\/strong> En saturant l&rsquo;appareil logistique et l&rsquo;espace de vente aux heures de pointe, les ventes hebdomadaires plafonneront obligatoirement \u00e0 $30,000$ euros (<span class=\"arabpsy-math-inline\" data-latex=\"b = 30,000\">$b = 30,000$<\/span>).<\/li>\n<li><strong>Le niveau le plus probable (<span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>) :<\/strong> Compte tenu du ciblage client et de la politique tarifaire, l&rsquo;\u00e9quipe commerciale anticipe un volume modal d&rsquo;affaires situ\u00e9 \u00e0 $25,000$ euros (<span class=\"arabpsy-math-inline\" data-latex=\"c = 25,000\">$c = 25,000$<\/span>).<\/li>\n<\/ul>\n<p>Ce triplet d\u00e9finit une distribution triangulaire asym\u00e9trique n\u00e9gative, puisque le mode <span class=\"arabpsy-math-inline\" data-latex=\"c = 25,000\">$c = 25,000$<\/span> est nettement sup\u00e9rieur au milieu arithm\u00e9tique de l&rsquo;intervalle qui s&rsquo;\u00e9tablit \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"(10,000 + 30,000) \/ 2 = 20,000\">$(10,000 + 30,000) \/ 2 = 20,000$<\/span>. <\/p>\n<p>La question manag\u00e9riale et probabiliste est la suivante : *Quelle est la probabilit\u00e9 cumulative que les recettes hebdomadaires soient inf\u00e9rieures ou \u00e9gales \u00e0 un seuil de rentabilit\u00e9 critique fix\u00e9 \u00e0 $20,000$ euros ?* Sur le plan formel, nous cherchons \u00e0 \u00e9valuer <span class=\"arabpsy-math-inline\" data-latex=\"P(X le 20,000)\">$P(X le 20,000)$<\/span>. Constatons que le quantile d&rsquo;int\u00e9r\u00eat <span class=\"arabpsy-math-inline\" data-latex=\"q = 20,000\">$q = 20,000$<\/span> se positionne rigoureusement dans la premi\u00e8re branche de la fonction de densit\u00e9, puisque <span class=\"arabpsy-math-inline\" data-latex=\"a le q le c\">$a le q le c$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"10,000 le 20,000 le 25,000\">$10,000 le 20,000 le 25,000$<\/span>).<\/p>\n<p>### 5.2 Ex\u00e9cution du script R et d\u00e9codage de la syntaxe<\/p>\n<p>L&rsquo;ex\u00e9cution computationnelle de ce probl\u00e8me probabiliste sous l&rsquo;environnement R \u00e0 l&rsquo;aide de la fonction `ptri()` d&rsquo;EnvStats s&rsquo;effectue par un appel concis :<\/p>\n<p><code>library(EnvStats)<\/p>\n<p># D\u00e9finition formelle des param\u00e8tres du mod\u00e8le<br \/>\nseuil_critique &lt;- 20000<br \/>\nrecettes_min   &lt;- 10000<br \/>\nrecettes_max   &lt;- 30000<br \/>\nrecettes_mode  &lt;- 25000<\/p>\n<p># \u00c9valuation de la probabilit\u00e9 cumul\u00e9e unilat\u00e9rale inf\u00e9rieure<br \/>\nproba_inferieure &lt;- ptri(<br \/>\n  q    = seuil_critique,<br \/>\n  min  = recettes_min,<br \/>\n  max  = recettes_max,<br \/>\n  mode = recettes_mode<br \/>\n)<\/p>\n<p># Restitution du r\u00e9sultat<br \/>\nprint(proba_inferieure)<br \/>\n<\/code><\/p>\n<p>L&rsquo;ex\u00e9cution de cette ligne de code retourne le r\u00e9sultat num\u00e9rique suivant :<\/p>\n<p><code>[1] 0.3333333<br \/>\n<\/code><\/p>\n<p>Pour expliciter le comportement algorithmique interne d&rsquo;EnvStats, recalculons ce r\u00e9sultat par d\u00e9rivation manuelle \u00e0 partir de la formule quadratique du segment ascendant \u00e9tablie \u00e0 la section 2.2 :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X le 20,000) = \\frac{(q - a)^2}{(b - a)(c - a)} = \\frac{(20,000 - 10,000)^2}{(30,000 - 10,000)(25,000 - 10,000)}\">$$P(X le 20,000) = \\frac{(q &#8211; a)^2}{(b &#8211; a)(c &#8211; a)} = \\frac{(20,000 &#8211; 10,000)^2}{(30,000 &#8211; 10,000)(25,000 &#8211; 10,000)}$$<\/span><\/p>\n<p>D\u00e9veloppons les soustractions \u00e9l\u00e9mentaires :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"(q - a) = 20,000 - 10,000 = 10,000\">$$(q &#8211; a) = 20,000 &#8211; 10,000 = 10,000$$<\/span><br \/>\n<span class=\"arabpsy-math-display\" data-latex=\"(b - a) = 30,000 - 10,000 = 20,000\">$$(b &#8211; a) = 30,000 &#8211; 10,000 = 20,000$$<\/span><br \/>\n<span class=\"arabpsy-math-display\" data-latex=\"(c - a) = 25,000 - 10,000 = 15,000\">$$(c &#8211; a) = 25,000 &#8211; 10,000 = 15,000$$<\/span><\/p>\n<p>Rempla\u00e7ons ces composantes dans la fraction :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X le 20,000) = \\frac{10,000^2}{20,000 \\times 15,000} = \\frac{100,000,000}{300,000,000} = \\frac{1}{3} \\approx 0.3333333\">$$P(X le 20,000) = \\frac{10,000^2}{20,000 \\times 15,000} = \\frac{100,000,000}{300,000,000} = \\frac{1}{3} \\approx 0.3333333$$<\/span><\/p>\n<p>Le r\u00e9sultat computationnel d&rsquo;EnvStats concorde parfaitement avec la d\u00e9monstration analytique. Sur le plan m\u00e9thodologique, cela indique qu&rsquo;il existe un risque objectif exact d&rsquo;un tiers (<span class=\"arabpsy-math-inline\" data-latex=\"33{,}33,%\">$33{,}33,%$<\/span>) que l&rsquo;\u00e9tablissement commercial ne parvienne pas \u00e0 g\u00e9n\u00e9rer le chiffre d&rsquo;affaires minimal requis de $20,000$ euros au cours d&rsquo;une semaine d&rsquo;exercice choisie au hasard.<\/p>\n<p>### 5.3 Analyse de sensibilit\u00e9 selon la variation du seuil<\/p>\n<p>L&rsquo;int\u00e9r\u00eat d&rsquo;une mod\u00e9lisation continue sous R r\u00e9side dans la capacit\u00e9 \u00e0 \u00e9valuer la sensibilit\u00e9 du syst\u00e8me face \u00e0 une multiplicit\u00e9 de seuils op\u00e9rationnels concurrents. Gr\u00e2ce \u00e0 la vectorisation de la fonction `ptri()`, nous pouvons soumettre un vecteur complet de valeurs de chiffre d&rsquo;affaires pour observer l&rsquo;acc\u00e9l\u00e9ration quadratique de la fonction de r\u00e9partition :<\/p>\n<p><code># G\u00e9n\u00e9ration d'une s\u00e9quence de seuils de 10 000 \u00e0 30 000 par incr\u00e9ments de 2 500<br \/>\nseuils_vectoriels &lt;- seq(from = 10000, to = 30000, by = 2500)<\/p>\n<p># Calcul vectoris\u00e9 des probabilit\u00e9s cumul\u00e9es<br \/>\nprobabilites_sensibilite &lt;- ptri(<br \/>\n  q    = seuils_vectoriels,<br \/>\n  min  = recettes_min,<br \/>\n  max  = recettes_max,<br \/>\n  mode = recettes_mode<br \/>\n)<\/p>\n<p># Structuration dans une table synth\u00e9tique de d\u00e9cision<br \/>\ntableau_sensibilite &lt;- data.frame(<br \/>\n  Seuil_Recettes = seuils_vectoriels,<br \/>\n  Probabilite_Cumulee = round(probabilites_sensibilite, 4),<br \/>\n  Pourcentage_Risque = scales::percent(probabilites_sensibilite, accuracy = 0.01)<br \/>\n)<\/p>\n<p>print(tableau_sensibilite)<br \/>\n<\/code><\/p>\n<p>L&rsquo;analyse des ordonn\u00e9es issues de ce script r\u00e9v\u00e8le des insights strat\u00e9giques capitaux :<\/p>\n<ul>\n<li>\u00c0 <span class=\"arabpsy-math-inline\" data-latex=\"q = 10,000\">$q = 10,000$<\/span>, la probabilit\u00e9 cumul\u00e9e est rigoureusement \u00e9gale \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"0{,}00,%\">$0{,}00,%$<\/span>.<\/li>\n<li>\u00c0 <span class=\"arabpsy-math-inline\" data-latex=\"q = 15,000\">$q = 15,000$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"P(X le 15,000) = \\frac{(5,000)^2}{20,000 \\times 15,000} = \\frac{25,000,000}{300,000,000} \\approx 8{,}33,%\">$P(X le 15,000) = \\frac{(5,000)^2}{20,000 \\times 15,000} = \\frac{25,000,000}{300,000,000} \\approx 8{,}33,%$<\/span>.<\/li>\n<li>Au niveau modal <span class=\"arabpsy-math-inline\" data-latex=\"q = c = 25,000\">$q = c = 25,000$<\/span>, la probabilit\u00e9 cumul\u00e9e atteint <span class=\"arabpsy-math-inline\" data-latex=\"P(X le 25,000) = \\frac{25,000 - 10,000}{30,000 - 10,000} = \\frac{15,000}{20,000} = 75{,}00,%\">$P(X le 25,000) = \\frac{25,000 &#8211; 10,000}{30,000 &#8211; 10,000} = \\frac{15,000}{20,000} = 75{,}00,%$<\/span>.<\/li>\n<\/ul>\n<p>Ce profil d&rsquo;accumulation d\u00e9montre que dans une distribution asym\u00e9trique n\u00e9gative, les trois quarts (<span class=\"arabpsy-math-inline\" data-latex=\"75,%\">$75,%$<\/span>) de la masse de probabilit\u00e9 sont concentr\u00e9s sous le mode, tandis que le quart restant (<span class=\"arabpsy-math-inline\" data-latex=\"25,%\">$25,%$<\/span>) est comprim\u00e9 sur l&rsquo;intervalle sup\u00e9rieur r\u00e9siduel <span class=\"arabpsy-math-inline\" data-latex=\"[25,000, 30,000]\">$[25,000, 30,000]$<\/span>. Ce constat \u00e9claire les d\u00e9cideurs sur la vitesse d&rsquo;inflexion du risque financier selon la position du seuil de couverture des co\u00fbts fixes.<\/p>\n<h2>6. Calcul de probabilit\u00e9s sup\u00e9rieures et d&rsquo;intervalles d&rsquo;exclusion<\/h2>\n<p>### 6.1 Probabilit\u00e9 d&rsquo;exc\u00e9der un seuil critique P(X &gt; x)<\/p>\n<p>En ing\u00e9nierie de la fiabilit\u00e9 et en gouvernance des risques d&rsquo;entreprise, la m\u00e9trique pr\u00e9pond\u00e9rante r\u00e9side souvent dans la probabilit\u00e9 de queue droite, correspondant \u00e0 l&rsquo;\u00e9ventualit\u00e9 d&rsquo;exc\u00e9der un seuil critique d\u00e9termin\u00e9 : <span class=\"arabpsy-math-inline\" data-latex=\"P(X &gt; x)\">$P(X &gt; x)$<\/span>. En vertu des axiomes de probabilit\u00e9 \u00e9l\u00e9mentaires, la probabilit\u00e9 d&rsquo;un \u00e9v\u00e9nement compl\u00e9mentaire est d\u00e9finie par :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; x) = 1 - P(X le x)\">$$P(X &gt; x) = 1 &#8211; P(X le x)$$<\/span><\/p>\n<p>Au sein de l&rsquo;environnement R, deux voies programmatiques s&rsquo;offrent au statisticien pour \u00e9valuer cette quantit\u00e9 :<\/p>\n<p><code># M\u00e9thode 1 : Soustraction arithm\u00e9tique manuelle du r\u00e9sultat unilat\u00e9ral inf\u00e9rieur<br \/>\nproba_depassement_v1 &lt;- 1 - ptri(q = 26000, min = 10000, max = 30000, mode = 25000)<\/p>\n<p># M\u00e9thode 2 : Sollicitation native du param\u00e8tre d&#039;optimisation lower.tail = FALSE<br \/>\nproba_depassement_v2 &lt;- ptri(<br \/>\n  q          = 26000,<br \/>\n  min        = 10000,<br \/>\n  max        = 30000,<br \/>\n  mode       = 25000,<br \/>\n  lower.tail = FALSE<br \/>\n)<\/p>\n<p>cat(&quot;Approche soustractive :&quot;, proba_depassement_v1, &quot;n&quot;)<br \/>\ncat(&quot;Approche lower.tail   :&quot;, proba_depassement_v2, &quot;n&quot;)<br \/>\n<\/code><\/p>\n<p>Sur le plan de l&rsquo;optimisation algorithmique, l&rsquo;usage explicite de `lower.tail = FALSE` est imp\u00e9rativement recommand\u00e9 par rapport \u00e0 la formulation `1 &#8211; ptri(&#8230;)`. Lorsque le quantile \u00e9valu\u00e9 se situe dans les r\u00e9gions extr\u00eames de la queue sup\u00e9rieure (par exemple <span class=\"arabpsy-math-inline\" data-latex=\"q to b\">$q to b$<\/span>), la probabilit\u00e9 cumul\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"P(X le q)\">$P(X le q)$<\/span> tend asymptotiquement vers $1$. <\/p>\n<p>Dans un syst\u00e8me computationnel \u00e0 virgule flottante r\u00e9gi par la norme <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/IEEE_754\">IEEE 754<\/a> \u00e0 double pr\u00e9cision (53 bits de mantisse), l&rsquo;\u00e9valuation num\u00e9rique de `1 &#8211; 0.9999999999999999` engendre une perte catastrophique de chiffres significatifs (ph\u00e9nom\u00e8ne de *cancellation cataclysmique*). \u00c0 l&rsquo;inverse, l&rsquo;argument `lower.tail = FALSE` d\u00e9clenche en interne une \u00e9valuation directe de la formulation analytique r\u00e9siduelle sans passer par le compl\u00e9ment \u00e0 l&rsquo;unit\u00e9 :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; q) = \\frac{(b - q)^2}{(b - a)(b - c)}\">$$P(X &gt; q) = \\frac{(b &#8211; q)^2}{(b &#8211; a)(b &#8211; c)}$$<\/span><\/p>\n<p>Pour notre cas concret \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"q = 26,000\">$q = 26,000$<\/span> (qui se situe dans la branche sup\u00e9rieure puisque <span class=\"arabpsy-math-inline\" data-latex=\"q &gt; c\">$q &gt; c$<\/span>) :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; 26,000) = \\frac{(30,000 - 26,000)^2}{(30,000 - 10,000)(30,000 - 25,000)} = \\frac{4,000^2}{20,000 \\times 5,000} = \\frac{16,000,000}{100,000,000} = 0.16\">$$P(X &gt; 26,000) = \\frac{(30,000 &#8211; 26,000)^2}{(30,000 &#8211; 10,000)(30,000 &#8211; 25,000)} = \\frac{4,000^2}{20,000 \\times 5,000} = \\frac{16,000,000}{100,000,000} = 0.16$$<\/span><\/p>\n<p>L&rsquo;entreprise dispose donc d&rsquo;une probabilit\u00e9 th\u00e9orique de <span class=\"arabpsy-math-inline\" data-latex=\"16,%\">$16,%$<\/span> de franchir un chiffre d&rsquo;affaires d&rsquo;excellence hebdomadaire de $26,000$ euros.<\/p>\n<p>### 6.2 Probabilit\u00e9s d&rsquo;intervalles d\u00e9limit\u00e9s P(x1 \u2264 X \u2264 x2)<\/p>\n<p>L&rsquo;\u00e9valuation de la probabilit\u00e9 qu&rsquo;une r\u00e9alisation continue s&rsquo;inscrive \u00e0 l&rsquo;int\u00e9rieur d&rsquo;une fourchette d\u00e9limit\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"[x_1, x_2]\">$[x_1, x_2]$<\/span> (avec <span class=\"arabpsy-math-inline\" data-latex=\"x_1 &lt; x_2\">$x_1 &lt; x_2$<\/span>) constitue un probl\u00e8me standard en contr\u00f4le statistique des processus et en audit financier. Elle repose sur le th\u00e9or\u00e8me fondamental du calcul des probabilit\u00e9s univari\u00e9es :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(x_1 le X le x_2) = F(x_2) - F(x_1)\">$$P(x_1 le X le x_2) = F(x_2) &#8211; F(x_1)$$<\/span><\/p>\n<p>Consid\u00e9rons une situation o\u00f9 l&#039;analyste cherche \u00e0 d\u00e9terminer la vraisemblance que les recettes hebdomadaires s&#039;\u00e9tablissent dans une zone m\u00e9diane d&#039;\u00e9quilibre op\u00e9rationnel, comprise entre <span class=\"arabpsy-math-inline\" data-latex=\"x_1 = 18,000\">$x_1 = 18,000$<\/span> euros et <span class=\"arabpsy-math-inline\" data-latex=\"x_2 = 27,000\">$x_2 = 27,000$<\/span> euros. Notons que cet intervalle chevauche le mode <span class=\"arabpsy-math-inline\" data-latex=\"c = 25,000\">$c = 25,000$<\/span>, imposant l&#039;\u00e9valuation conjointe du segment quadratique ascendant pour <span class=\"arabpsy-math-inline\" data-latex=\"x_1\">$x_1$<\/span> et du segment parabolique descendant pour <span class=\"arabpsy-math-inline\" data-latex=\"x_2\">$x_2$<\/span>.<\/p>\n<p>L&#039;impl\u00e9mentation algorithmique sous R s&#039;ex\u00e9cute de fa\u00e7on transparente :<\/p>\n<p><code>borne_inf_intervalle &lt;- 18000<br \/>\nborne_sup_intervalle &lt;- 27000<\/p>\n<p># \u00c9valuation de la probabilit\u00e9 d&#039;appartenance \u00e0 la plage d\u00e9limit\u00e9e<br \/>\nproba_intervalle &lt;- ptri(q = borne_sup_intervalle, min = 10000, max = 30000, mode = 25000) -<br \/>\n                    ptri(q = borne_inf_intervalle, min = 10000, max = 30000, mode = 25000)<\/p>\n<p>print(proba_intervalle)<br \/>\n<\/code><\/p>\n<p>D\u00e9taillons la r\u00e9solution math\u00e9matique pour certifier la robustesse du code R :<\/p>\n<ul>\n<li>Pour la borne <span class=\"arabpsy-math-inline\" data-latex=\"x_1 = 18,000\">$x_1 = 18,000$<\/span> (segment ascendant) :<br \/>\n    <span class=\"arabpsy-math-display\" data-latex=\"F(18,000) = \\frac{(18,000 - 10,000)^2}{20,000 \\times 15,000} = \\frac{64,000,000}{300,000,000} = \\frac{64}{300} \\approx 0.2133333\">$$F(18,000) = \\frac{(18,000 &#8211; 10,000)^2}{20,000 \\times 15,000} = \\frac{64,000,000}{300,000,000} = \\frac{64}{300} \\approx 0.2133333$$<\/span>\n    <\/li>\n<li>Pour la borne <span class=\"arabpsy-math-inline\" data-latex=\"x_2 = 27,000\">$x_2 = 27,000$<\/span> (segment descendant) :<br \/>\n    <span class=\"arabpsy-math-display\" data-latex=\"F(27,000) = 1 - \\frac{(30,000 - 27,000)^2}{(30,000 - 10,000)(30,000 - 25,000)} = 1 - \\frac{3,000^2}{20,000 \\times 5,000} = 1 - \\frac{9,000,000}{100,000,000} = 1 - 0.09 = 0.91\">$$F(27,000) = 1 &#8211; \\frac{(30,000 &#8211; 27,000)^2}{(30,000 &#8211; 10,000)(30,000 &#8211; 25,000)} = 1 &#8211; \\frac{3,000^2}{20,000 \\times 5,000} = 1 &#8211; \\frac{9,000,000}{100,000,000} = 1 &#8211; 0.09 = 0.91$$<\/span>\n    <\/li>\n<\/ul>\n<p>La diff\u00e9rence analytique s&rsquo;\u00e9tablit \u00e0 :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(18,000 le X le 27,000) = 0.91 - 0.2133333 = 0.6966667\">$$P(18,000 le X le 27,000) = 0.91 &#8211; 0.2133333 = 0.6966667$$<\/span><\/p>\n<p>L&rsquo;analyste conclut avec une pr\u00e9cision num\u00e9rique totale qu&rsquo;il y a approximativement <span class=\"arabpsy-math-inline\" data-latex=\"69{,}67,%\">$69{,}67,%$<\/span> de chances que la performance commerciale hebdomadaire soit comprise \u00e0 l&rsquo;int\u00e9rieur de cet intervalle cible.<\/p>\n<p>### 6.3 Calculs conditionnels et probabilit\u00e9s tronqu\u00e9es<\/p>\n<p>Dans l&rsquo;analyse des syst\u00e8mes dynamiques et des protocoles comportementaux, le chercheur doit constamment int\u00e9grer des informations pr\u00e9liminaires via des probabilit\u00e9s conditionnelles. Si un \u00e9v\u00e9nement interm\u00e9diaire a d\u00e9j\u00e0 eu lieu \u2014 par exemple, si nous avons la certitude que les ventes ont d&rsquo;ores et d\u00e9j\u00e0 franchi la barre des $18,000$ euros (<span class=\"arabpsy-math-inline\" data-latex=\"X &gt; 18,000\">$X &gt; 18,000$<\/span>) \u2014, quelle est la probabilit\u00e9 r\u00e9vis\u00e9e que la performance finale parvienne \u00e0 exc\u00e9der $26,000$ euros ?<\/p>\n<p>La formulation conditionnelle formalis\u00e9e par le <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Bayes%27_theorem\">th\u00e9or\u00e8me de Bayes<\/a> s&rsquo;\u00e9nonce :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; x_2 mid X &gt; x_1) = \\frac{P(X &gt; x_2 \\cap X &gt; x_1)}{P(X &gt; x_1)}\">$$P(X &gt; x_2 mid X &gt; x_1) = \\frac{P(X &gt; x_2 \\cap X &gt; x_1)}{P(X &gt; x_1)}$$<\/span><\/p>\n<p>Puisque <span class=\"arabpsy-math-inline\" data-latex=\"x_2 ge x_1\">$x_2 ge x_1$<\/span>, l&rsquo;intersection des deux ensembles bor\u00e9liens se simplifie trivialement en <span class=\"arabpsy-math-inline\" data-latex=\"P(X &gt; x_2)\">$P(X &gt; x_2)$<\/span>, produisant l&rsquo;expression :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; x_2 mid X &gt; x_1) = \\frac{P(X &gt; x_2)}{P(X &gt; x_1)}\">$$P(X &gt; x_2 mid X &gt; x_1) = \\frac{P(X &gt; x_2)}{P(X &gt; x_1)}$$<\/span><\/p>\n<p>En scriptant ce raisonnement dans R avec `lower.tail = FALSE` :<\/p>\n<p><code>x1 &lt;- 18000<br \/>\nx2 &lt;- 26000<\/p>\n<p>prob_x1_depassee &lt;- ptri(x1, min = 10000, max = 30000, mode = 25000, lower.tail = FALSE)<br \/>\nprob_x2_depassee &lt;- ptri(x2, min = 10000, max = 30000, mode = 25000, lower.tail = FALSE)<\/p>\n<p>probabilite_conditionnelle  26000 | X &gt; 18000) :\", probabilite_conditionnelle, \"n\")<br \/>\n<\/code><\/p>\n<p>Sur la base de nos d\u00e9rivations ant\u00e9rieures, <span class=\"arabpsy-math-inline\" data-latex=\"P(X &gt; 26,000) = 0{,}16\">$P(X &gt; 26,000) = 0{,}16$<\/span> et <span class=\"arabpsy-math-inline\" data-latex=\"P(X &gt; 18,000) = 1 - 0{,}2133333 = 0{,}7866667\">$P(X &gt; 18,000) = 1 &#8211; 0{,}2133333 = 0{,}7866667$<\/span>. Le ratio r\u00e9sultant est :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; 26,000 mid X &gt; 18,000) = \\frac{0.16}{0.7866667} \\approx 0.2033898\">$$P(X &gt; 26,000 mid X &gt; 18,000) = \\frac{0.16}{0.7866667} \\approx 0.2033898$$<\/span><\/p>\n<p>La connaissance a priori que l&rsquo;activit\u00e9 a d\u00e9pass\u00e9 le seuil bas de $18,000$ euros rehausse instantan\u00e9ment la probabilit\u00e9 d&rsquo;atteindre le palier sup\u00e9rieur d&rsquo;excellence de <span class=\"arabpsy-math-inline\" data-latex=\"16,%\">$16,%$<\/span> \u00e0 un peu plus de <span class=\"arabpsy-math-inline\" data-latex=\"20{,}34,%\">$20{,}34,%$<\/span>. Cette m\u00e9thode de conditionnement est particuli\u00e8rement f\u00e9conde lors de l&rsquo;\u00e9tude des temps d&rsquo;arr\u00eat comportementaux ou des latences cognitives tronqu\u00e9es exp\u00e9rimentalement.<\/p>\n<h2>7. D\u00e9termination des quantiles inverses avec qtri()<\/h2>\n<p>### 7.1 R\u00f4le et formulation analytique de la fonction qtri()<\/p>\n<p>Si la fonction de r\u00e9partition cumulative <span class=\"arabpsy-math-inline\" data-latex=\"F(x)\">$F(x)$<\/span> applique l&rsquo;espace continu de la variable d&rsquo;int\u00e9r\u00eat <span class=\"arabpsy-math-inline\" data-latex=\"[a, b]\">$[a, b]$<\/span> vers l&rsquo;intervalle des probabilit\u00e9s <span class=\"arabpsy-math-inline\" data-latex=\"[0, 1]\">$[0, 1]$<\/span>, la fonction quantile \u2014 conventionnellement d\u00e9sign\u00e9e comme la fonction inverse de r\u00e9partition <span class=\"arabpsy-math-inline\" data-latex=\"F^{-1}(p)\">$F^{-1}(p)$<\/span> \u2014 r\u00e9alise l&rsquo;op\u00e9ration g\u00e9om\u00e9trique et math\u00e9matique strictement inverse. \u00c9tant donn\u00e9 un niveau de probabilit\u00e9 cumul\u00e9e fix\u00e9 <span class=\"arabpsy-math-inline\" data-latex=\"p in [0, 1]\">$p in [0, 1]$<\/span>, la fonction quantile d\u00e9termine l&rsquo;abscisse unique <span class=\"arabpsy-math-inline\" data-latex=\"x_p\">$x_p$<\/span> v\u00e9rifiant rigoureusement <span class=\"arabpsy-math-inline\" data-latex=\"P(X le x_p) = p\">$P(X le x_p) = p$<\/span>.<\/p>\n<p>Dans le package `EnvStats`, cette inversion analytique est mat\u00e9rialis\u00e9e par la fonction `qtri()`. En raison de la structure en deux morceaux de la distribution triangulaire, l&rsquo;inversion de l&rsquo;expression quadratique d\u00e9pend de la position de <span class=\"arabpsy-math-inline\" data-latex=\"p\">$p$<\/span> par rapport \u00e0 la probabilit\u00e9 cumul\u00e9e au mode <span class=\"arabpsy-math-inline\" data-latex=\"F(c) = (c - a) \/ (b - a)\">$F(c) = (c &#8211; a) \/ (b &#8211; a)$<\/span> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"x_p = F^{-1}(p) = \\begin{\\cases} \na + \\sqrt{p(b - a)(c - a)} &amp;a\\mp; \\text{si } 0 le p le \\frac{c - a}{b - a}  \nb - \\sqrt{(1 - p)(b - a)(b - c)} &amp;a\\mp; \\text{si } \\frac{c - a}{b - a} &lt; p le 1 \n\\end{\\cases}\">$$x_p = F^{-1}(p) = \\begin{\\cases}<br \/>\na + \\sqrt{p(b &#8211; a)(c &#8211; a)} &#038;a\\mp; \\text{si } 0 le p le \\frac{c &#8211; a}{b &#8211; a}<br \/>\nb &#8211; \\sqrt{(1 &#8211; p)(b &#8211; a)(b &#8211; c)} &#038;a\\mp; \\text{si } \\frac{c &#8211; a}{b &#8211; a} &lt; p le 1<br \/>\n\\end{\\cases}$$<\/span><\/p>\n<p>La syntaxe formelle sous R adopte la forme suivante :<\/p>\n<p><code>qtri(p, min = 0, max = 1, mode = 0.5, lower.tail = TRUE)<br \/>\n<\/code><\/p>\n<p>L&rsquo;argument `p` repr\u00e9sente un vecteur r\u00e9el de probabilit\u00e9s requises. La fonction garantit une monotonicit\u00e9 stricte : si <span class=\"arabpsy-math-inline\" data-latex=\"p_1 &lt; p_2\">$p_1 &lt; p_2$<\/span>, alors syst\u00e9matiquement <span class=\"arabpsy-math-inline\" data-latex=\"qtri(p_1, ...) &lt; qtri(p_2, ...)\">$qtri(p_1, &#8230;) &lt; qtri(p_2, &#8230;)$<\/span>, respectant ainsi les contraintes structurelles d&#039;une bijection croissante continue.<\/p>\n<p>### 7.2 Exemples d&#039;application : D\u00e9termination des seuils de confiance<\/p>\n<p>L&#039;usage canonique des quantiles r\u00e9side dans la d\u00e9termination d&#039;intervalles de confiance non param\u00e9triques et l&#039;identification de valeurs \u00e0 risque (VaR, *Value at Risk*). Reprenons les param\u00e8tres de notre sc\u00e9nario commercial : <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\min} = 10,000\">$\\text{\\min} = 10,000$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\max} = 30,000\">$\\text{\\max} = 30,000$<\/span>, et <span class=\"arabpsy-math-inline\" data-latex=\"\\text{mode} = 25,000\">$\\text{mode} = 25,000$<\/span>. Calculons la m\u00e9diane th\u00e9orique ainsi que l&#039;intervalle de fluctuation central \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"90,%\">$90,%$<\/span> (d\u00e9limit\u00e9 par le 5\u00e8me et le 95\u00e8me centile).<\/p>\n<p><code># Calcul de la m\u00e9diane th\u00e9orique (quantile \u00e0 p = 0.50)<br \/>\nmediane_theorique &lt;- qtri(p = 0.50, min = 10000, max = 30000, mode = 25000)<\/p>\n<p># Calcul des bornes de l&#039;intervalle de confiance bilat\u00e9ral \u00e0 90% (alpha = 0.10)<br \/>\nborne_inferieure_90 &lt;- qtri(p = 0.05, min = 10000, max = 30000, mode = 25000)<br \/>\nborne_superieure_90 &lt;- qtri(p = 0.95, min = 10000, max = 30000, mode = 25000)<\/p>\n<p>cat(&quot;M\u00e9diane (50\u00e8me centile) :&quot;, mediane_theorique, &quot;eurosn&quot;)<br \/>\ncat(&quot;Intervalle bilat\u00e9ral \u00e0 90% : [&quot;, borne_inferieure_90, &quot;;&quot;, borne_superieure_90, &quot;] eurosn&quot;)<br \/>\n<\/code><\/p>\n<p>V\u00e9rifions analytiquement le calcul de la m\u00e9diane. Nous savons que la probabilit\u00e9 au mode est <span class=\"arabpsy-math-inline\" data-latex=\"F(c) = (25,000 - 10,000) \/ (30,000 - 10,000) = 15,000 \/ 20,000 = 0{,}75\">$F(c) = (25,000 &#8211; 10,000) \/ (30,000 &#8211; 10,000) = 15,000 \/ 20,000 = 0{,}75$<\/span>. Puisque la probabilit\u00e9 recherch\u00e9e pour la m\u00e9diane (<span class=\"arabpsy-math-inline\" data-latex=\"p = 0{,}50\">$p = 0{,}50$<\/span>) est strictement inf\u00e9rieure \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"F(c) = 0{,}75\">$F(c) = 0{,}75$<\/span>, nous appliquons la premi\u00e8re branche de la fonction inverse :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"x_{0.50} = a + \\sqrt{0.50 \\times (b - a) \\times (c - a)}\">$$x_{0.50} = a + \\sqrt{0.50 \\times (b &#8211; a) \\times (c &#8211; a)}$$<\/span><br \/>\n<span class=\"arabpsy-math-display\" data-latex=\"x_{0.50} = 10,000 + \\sqrt{0.50 \\times 20,000 \\times 15,000} = 10,000 + \\sqrt{150,000,000} \\approx 10,000 + 12,247.45 = 22,247.45 \\text{ euros}\">$$x_{0.50} = 10,000 + \\sqrt{0.50 \\times 20,000 \\times 15,000} = 10,000 + \\sqrt{150,000,000} \\approx 10,000 + 12,247.45 = 22,247.45 \\text{ euros}$$<\/span><\/p>\n<p>L&rsquo;affichage de R confirme cette d\u00e9duction :<\/p>\n<p><code>M\u00e9diane (50\u00e8me centile) : 22247.45 euros<br \/>\nIntervalle bilat\u00e9ral \u00e0 90% : [ 13872.98 ; 28585.79 ] euros<br \/>\n<\/code><\/p>\n<p>Comparons d\u00e9sormais formellement les trois indicateurs de tendance centrale pour cette loi :<\/p>\n<ul>\n<li><strong>Le mode (<span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>) :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"25,000{,}00\">$25,000{,}00$<\/span> euros.<\/li>\n<li><strong>La m\u00e9diane (<span class=\"arabpsy-math-inline\" data-latex=\"x_{0.50}\">$x_{0.50}$<\/span>) :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"22,247{,}45\">$22,247{,}45$<\/span> euros.<\/li>\n<li><strong>L&rsquo;esp\u00e9rance arithm\u00e9tique (<span class=\"arabpsy-math-inline\" data-latex=\"E[X]\">$E[X]$<\/span>) :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"(10,000 + 30,000 + 25,000) \/ 3 = 65,000 \/ 3 \\approx 21,666{,}67\">$(10,000 + 30,000 + 25,000) \/ 3 = 65,000 \/ 3 \\approx 21,666{,}67$<\/span> euros.<\/li>\n<\/ul>\n<p>Ce classement hi\u00e9rarchique <span class=\"arabpsy-math-inline\" data-latex=\"E[X] &lt; \\text{M\u00e9diane} &lt; \\text{Mode}\">$E[X] &lt; \\text{M\u00e9diane} &lt; \\text{Mode}$<\/span> constitue la signature cardinale et universelle d&#039;une distribution \u00e0 asym\u00e9trie n\u00e9gative prononc\u00e9e (\u00e9talement vers la gauche).<\/p>\n<p>### 7.3 Gestion des quantiles vectoriels et applications matricielles<\/p>\n<p>Pour automatiser l&#039;analyse pr\u00e9dictive et construire des grilles d\u00e9cisionnelles op\u00e9rationnelles, la vectorisation de `qtri()` permet de g\u00e9n\u00e9rer des tables compl\u00e8tes de percentiles ou de d\u00e9ciles sans co\u00fbt computationnel mesurable :<\/p>\n<p><code># G\u00e9n\u00e9ration des d\u00e9ciles (de 10% \u00e0 90%)<br \/>\nvecteur_p &lt;- seq(from = 0.10, to = 0.90, by = 0.10)<\/p>\n<p># \u00c9valuation vectoris\u00e9e instantan\u00e9e<br \/>\ndeciles_calcules &lt;- qtri(<br \/>\n  p    = vecteur_p,<br \/>\n  min  = 10000,<br \/>\n  max  = 30000,<br \/>\n  mode = 25000<br \/>\n)<\/p>\n<p># Construction d&#039;un data frame analytique<br \/>\ntable_deciles &lt;- data.frame(<br \/>\n  Centile = paste0(vecteur_p * 100, &quot;%&quot;),<br \/>\n  Probabilite = vecteur_p,<br \/>\n  Recettes_Estimees = round(deciles_calcules, 2)<br \/>\n)<\/p>\n<p>print(table_deciles)<br \/>\n<\/code><\/p>\n<p>Dans des syst\u00e8mes de gestion des risques \u00e0 haute performance impliquant des matrices de corr\u00e9lations de variables multiples (par exemple dans le cadre de <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Copula_(probability_theory)\">copules gaussiennes ou de Student<\/a>), la fonction `qtri()` sert de transformateur marginal univari\u00e9 fondamental : elle convertit instantan\u00e9ment des rangs corr\u00e9l\u00e9s g\u00e9n\u00e9r\u00e9s sur l&rsquo;espace uniforme <span class=\"arabpsy-math-inline\" data-latex=\"[0, 1]\">$[0, 1]$<\/span> en quantiles physiques exploitables par le mod\u00e8le financier global.<\/p>\n<h2>8. \u00c9valuation de la densit\u00e9 ponctuelle avec la fonction dtri()<\/h2>\n<p>### 8.1 Fondements et syntaxe de la densit\u00e9 continue sous dtri()<\/p>\n<p>Une confusion m\u00e9thodologique fr\u00e9quente chez les utilisateurs d\u00e9butants consiste \u00e0 assimiler la densit\u00e9 ponctuelle <span class=\"arabpsy-math-inline\" data-latex=\"f(x)\">$f(x)$<\/span> \u00e0 une probabilit\u00e9 discr\u00e8te <span class=\"arabpsy-math-inline\" data-latex=\"P(X = x)\">$P(X = x)$<\/span>. Pour toute variable al\u00e9atoire rigoureusement continue, la probabilit\u00e9 ponctuelle exacte est identiquement nulle : <span class=\"arabpsy-math-inline\" data-latex=\"P(X = x) = 0\">$P(X = x) = 0$<\/span>. La valeur renvoy\u00e9e par la fonction de densit\u00e9 `dtri()` repr\u00e9sente en r\u00e9alit\u00e9 la hauteur de la courbe au point consid\u00e9r\u00e9, c&rsquo;est-\u00e0-dire le taux instantan\u00e9 de probabilit\u00e9 par unit\u00e9 de mesure :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"f(x) = \\lim_{\\Delta x to 0} \\frac{P(x le X le x + \\Delta x)}{\\Delta x}\">$$f(x) = \\lim_{\\Delta x to 0} \\frac{P(x le X le x + \\Delta x)}{\\Delta x}$$<\/span><\/p>\n<p>Dans le package `EnvStats`, la densit\u00e9 s&rsquo;\u00e9value via la commande :<\/p>\n<p><code>dtri(x, min = 0, max = 1, mode = 0.5)<br \/>\n<\/code><\/p>\n<p>V\u00e9rifions analytiquement la valeur maximale th\u00e9orique que la fonction doit renvoyer lorsque l&rsquo;abscisse concorde avec le mode (<span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span>). En vertu des d\u00e9monstrations \u00e9tablies \u00e0 la section 2.1 :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"f(c) = \\frac{2}{b - a} = \\frac{2}{30,000 - 10,000} = \\frac{2}{20,000} = 0.0001\">$$f(c) = \\frac{2}{b &#8211; a} = \\frac{2}{30,000 &#8211; 10,000} = \\frac{2}{20,000} = 0.0001$$<\/span><\/p>\n<p>V\u00e9rifions ce point directement dans l&rsquo;interpr\u00e9teur R :<\/p>\n<p><code>densite_au_mode &lt;- dtri(x = 25000, min = 10000, max = 30000, mode = 25000)<br \/>\ncat(&quot;Densit\u00e9 maximale au sommet f(c) :&quot;, densite_au_mode, &quot;n&quot;)<br \/>\n<\/code><\/p>\n<p>R renvoie pr\u00e9cis\u00e9ment :<\/p>\n<p><code>Densit\u00e9 maximale au sommet f(c) : 0.0001<br \/>\n<\/code><\/p>\n<p>Cette ordonn\u00e9e peut sembler de faible amplitude, mais cela s&rsquo;explique par la largeur du domaine de mesure ($20,000$ unit\u00e9s). L&rsquo;int\u00e9grale de cette surface triangulaire (base <span class=\"arabpsy-math-inline\" data-latex=\"\\times\">$\\times$<\/span> hauteur <span class=\"arabpsy-math-inline\" data-latex=\"\/ 2 = 20,000 \\times 0{,}0001 \/ 2 = 1\">$\/ 2 = 20,000 \\times 0{,}0001 \/ 2 = 1$<\/span>) r\u00e9tablit fid\u00e8lement l&rsquo;unit\u00e9 globale de probabilit\u00e9. En dehors de l&rsquo;intervalle <span class=\"arabpsy-math-inline\" data-latex=\"[10,000, 30,000]\">$[10,000, 30,000]$<\/span>, la fonction `dtri()` retourne la valeur $0$.<\/p>\n<p>### 8.2 Calcul ponctuel et trac\u00e9 continu de courbes de densit\u00e9<\/p>\n<p>La cartographie compl\u00e8te de la fonction de densit\u00e9 n\u00e9cessite l&rsquo;\u00e9chantillonnage d&rsquo;un maillage r\u00e9gulier de coordonn\u00e9es le long du support. Pour garantir un trac\u00e9 net \u00e9vitant les artefacts de lissage artificiels au niveau de l&rsquo;apex, il convient d&rsquo;inclure rigoureusement le point d&rsquo;inflexion modal <span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span> dans la s\u00e9rie de discr\u00e9tisation :<\/p>\n<p><code># Cr\u00e9ation d'une grille fine incluant explicitement le mode<br \/>\nabscisses &lt;- sort(unique(c(<br \/>\n  seq(from = 8000, to = 32000, length.out = 1000),<br \/>\n  10000, 25000, 30000<br \/>\n)))<\/p>\n<p># Calcul de la densit\u00e9 continue pour chaque abscisse<br \/>\ndensites &lt;- dtri(x = abscisses, min = 10000, max = 30000, mode = 25000)<\/p>\n<p># Trac\u00e9 pr\u00e9liminaire avec le moteur graphique de base de R<br \/>\nplot(<br \/>\n  x = abscisses,<br \/>\n  y = densites,<br \/>\n  type = &quot;l&quot;,<br \/>\n  lwd = 2,<br \/>\n  col = &quot;navyblue&quot;,<br \/>\n  main = &quot;Fonction de densit\u00e9 triangulaire (min=10k, max=30k, mode=25k)&quot;,<br \/>\n  xlab = &quot;Recettes hebdomadaires (\u20ac)&quot;,<br \/>\n  ylab = &quot;Densit\u00e9 de probabilit\u00e9 f(x)&quot;<br \/>\n)<br \/>\nabline(v = 25000, col = &quot;red&quot;, lty = 2)<br \/>\ngrid()<br \/>\n<\/code><\/p>\n<p>Ce diagnostic graphique permet de visualiser instantan\u00e9ment l&rsquo;asym\u00e9trie de la distribution. La pente ascendante douce reliant <span class=\"arabpsy-math-inline\" data-latex=\"(10,000, 0)\">$(10,000, 0)$<\/span> \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"(25,000, 0{,}0001)\">$(25,000, 0{,}0001)$<\/span> contraste avec la pente descendante abrupte reliant <span class=\"arabpsy-math-inline\" data-latex=\"(25,000, 0{,}0001)\">$(25,000, 0{,}0001)$<\/span> \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"(30,000, 0)\">$(30,000, 0)$<\/span>. <\/p>\n<figure class=\"wpt-preserved-image\"><img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/french.arabpsychology.com\/wp-content\/uploads\/2026\/09\/triangleExcel2-1.png\" alt=\"\" \/><\/figure>\n<h2>9. G\u00e9n\u00e9ration de nombres pseudo-al\u00e9atoires avec rtri() et simulation de Monte-Carlo<\/h2>\n<p>### 9.1 Principes du g\u00e9n\u00e9rateur stochastique rtri()<\/p>\n<p>La simulation stochastique de Monte-Carlo requiert des moteurs de g\u00e9n\u00e9ration pseudo-al\u00e9atoire fiables et rapides. La fonction `rtri()` d&rsquo;EnvStats impl\u00e9mente l&rsquo;algorithme d&rsquo;\u00e9chantillonnage par transformation inverse (*Inverse Transform Sampling*). Ce th\u00e9or\u00e8me math\u00e9matique stipule que si une variable <span class=\"arabpsy-math-inline\" data-latex=\"U\">$U$<\/span> suit une loi uniforme continue standard sur <span class=\"arabpsy-math-inline\" data-latex=\"[0, 1]\">$[0, 1]$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"U \\sim \\mathcal{U}(0, 1)\">$U \\sim \\mathcal{U}(0, 1)$<\/span>), alors la variable transform\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"X = F^{-1}(U)\">$X = F^{-1}(U)$<\/span> suit pr\u00e9cis\u00e9ment la distribution continue de fonction de r\u00e9partition <span class=\"arabpsy-math-inline\" data-latex=\"F\">$F$<\/span>.<\/p>\n<p>L&rsquo;algorithme interne de `rtri()` r\u00e9alise les op\u00e9rations suivantes :<\/p>\n<ol>\n<li>Il tire un vecteur de dimension <span class=\"arabpsy-math-inline\" data-latex=\"n\">$n$<\/span> de valeurs uniformes <span class=\"arabpsy-math-inline\" data-latex=\"u_i\">$u_i$<\/span> via le g\u00e9n\u00e9rateur de base de R (l&rsquo;algorithme <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Mersenne_Twister\">Mersenne Twister<\/a>).<\/li>\n<li>Il applique analytiquement l&rsquo;\u00e9quation de la fonction quantile <span class=\"arabpsy-math-inline\" data-latex=\"qtri(u_i)\">$qtri(u_i)$<\/span> d\u00e9riv\u00e9e \u00e0 la section 7.1.<\/li>\n<li>Il retourne le vecteur synth\u00e9tique obtenu.<\/li>\n<\/ol>\n<p>Pour garantir la reproductibilit\u00e9 absolue des calculs statistiques dans un rapport ou une publication scientifique, l&rsquo;ex\u00e9cution doit imp\u00e9rativement \u00eatre pr\u00e9c\u00e9d\u00e9e de la fixation de la graine al\u00e9atoire via l&rsquo;instruction `set.seed()` :<\/p>\n<p><code># Fixation de la graine pseudo-al\u00e9atoire pour la reproductibilit\u00e9<br \/>\nset.seed(42)<\/p>\n<p># \u00c9chantillonnage de 100 000 tirages synth\u00e9tiques<br \/>\nn_simulations &lt;- 100000<br \/>\nechantillon_simule &lt;- rtri(<br \/>\n  n    = n_simulations,<br \/>\n  min  = 10000,<br \/>\n  max  = 30000,<br \/>\n  mode = 25000<br \/>\n)<\/p>\n<p># Inspection des premi\u00e8res r\u00e9alisations g\u00e9n\u00e9r\u00e9es<br \/>\nhead(echantillon_simule, 6)<br \/>\n<\/code><\/p>\n<p>L&rsquo;affichage des premi\u00e8res valeurs illustre des tirages stochastiques confin\u00e9s \u00e0 l&rsquo;int\u00e9rieur du support d\u00e9limit\u00e9 :<\/p>\n<p><code>[1] 27301.76 27749.62 17342.34 25776.32 23971.93 23412.08<br \/>\n<\/code><\/p>\n<p>### 9.2 Validation empirique de l&rsquo;\u00e9chantillon synth\u00e9tique<\/p>\n<p>Pour valider l&rsquo;ad\u00e9quation m\u00e9thodologique de notre g\u00e9n\u00e9rateur, comparons les m\u00e9triques descriptives empiriques calcul\u00e9es sur l&rsquo;\u00e9chantillon de $100,000$ r\u00e9alisations avec les valeurs th\u00e9oriques d\u00e9riv\u00e9es analytiquement :<\/p>\n<p><code># Esp\u00e9rance th\u00e9orique vs Moyenne empirique<br \/>\nmoyenne_theorique &lt;- (10000 + 30000 + 25000) \/ 3<br \/>\nmoyenne_empirique &lt;- mean(echantillon_simule)<\/p>\n<p># Variance th\u00e9orique vs Variance empirique<br \/>\nvariance_theorique &lt;- (10000^2 + 30000^2 + 25000^2 - 10000*30000 - 10000*25000 - 30000*25000) \/ 18<br \/>\nvariance_empirique &lt;- var(echantillon_simule)<\/p>\n<p># \u00c9cart-type th\u00e9orique vs empirique<br \/>\nsd_theorique &lt;- sqrt(variance_theorique)<br \/>\nsd_empirique &lt;- sd(echantillon_simule)<\/p>\n<p># Synth\u00e8se compar\u00e9e<br \/>\ncomparaison &lt;- data.frame(<br \/>\n  Metrique = c(&quot;Moyenne&quot;, &quot;Variance&quot;, &quot;\u00c9cart-type&quot;),<br \/>\n  Theorique = c(moyenne_theorique, variance_theorique, sd_theorique),<br \/>\n  Empirique = c(moyenne_empirique, variance_empirique, sd_empirique),<br \/>\n  Erreur_Relative = c(<br \/>\n    abs(moyenne_empirique - moyenne_theorique) \/ moyenne_theorique,<br \/>\n    abs(variance_empirique - variance_theorique) \/ variance_theorique,<br \/>\n    abs(sd_empirique - sd_theorique) \/ sd_theorique<br \/>\n  )<br \/>\n)<\/p>\n<p>print(comparaison)<br \/>\n<\/code><\/p>\n<p>Ce script met en lumi\u00e8re une convergence asymptotique quasi parfaite, conforme \u00e0 la loi forte des grands nombres : l&rsquo;erreur relative entre la moyenne empirique et l&rsquo;esp\u00e9rance math\u00e9matique est inf\u00e9rieure \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"0{,}05,%\">$0{,}05,%$<\/span>. <\/p>\n<p>De surcro\u00eet, pour certifier que la distribution empirique se conforme formellement \u00e0 la loi th\u00e9orique attendue, nous pouvons ex\u00e9cuter un test d&rsquo;ad\u00e9quation non param\u00e9trique de Kolmogorov-Smirnov :<\/p>\n<p><code># Test d'ajustement de Kolmogorov-Smirnov sur un sous-\u00e9chantillon repr\u00e9sentatif<br \/>\nks_resultat &lt;- ks.test(<br \/>\n  x = echantillon_simule[1:1000],<br \/>\n  y = &quot;ptri&quot;,<br \/>\n  min = 10000,<br \/>\n  max = 30000,<br \/>\n  mode = 25000<br \/>\n)<\/p>\n<p>print(ks_resultat)<br \/>\n<\/code><\/p>\n<p>La p-valeur tr\u00e8s sup\u00e9rieure au seuil d&rsquo;admissibilit\u00e9 standard (<span class=\"arabpsy-math-inline\" data-latex=\"\\alpha = 0{,}05\">$\\alpha = 0{,}05$<\/span>) confirme l&rsquo;hypoth\u00e8se nulle d&rsquo;identit\u00e9 des distributions : l&rsquo;algorithme `rtri()` simule rigoureusement la loi sp\u00e9cifi\u00e9e.<\/p>\n<p>### 9.3 Application \u00e0 une simulation de Monte-Carlo multivari\u00e9e<\/p>\n<p>Dans les applications r\u00e9elles de gestion de projet et de mod\u00e9lisation pr\u00e9dictive d&rsquo;ing\u00e9nierie, les variables ne se pr\u00e9sentent jamais de fa\u00e7on isol\u00e9e. La simulation de Monte-Carlo permet d&rsquo;agr\u00e9ger des incertitudes multiples en combinant plusieurs variables al\u00e9atoires triangulaires ind\u00e9pendantes.<\/p>\n<p>Consid\u00e9rons un projet structur\u00e9 autour de trois \u00e9tapes s\u00e9quentielles critiques, dont les dur\u00e9es (exprim\u00e9es en jours ouvr\u00e9s) sont mod\u00e9lis\u00e9es par des distributions triangulaires h\u00e9t\u00e9rog\u00e8nes :<\/p>\n<ul>\n<li><strong>\u00c9tape 1 (Conception architecturale) :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\min} = 5\">$\\text{\\min} = 5$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\max} = 15\">$\\text{\\max} = 15$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\text{mode} = 8\">$\\text{mode} = 8$<\/span>.<\/li>\n<li><strong>\u00c9tape 2 (D\u00e9veloppement logiciel) :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\min} = 20\">$\\text{\\min} = 20$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\max} = 50\">$\\text{\\max} = 50$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\text{mode} = 30\">$\\text{mode} = 30$<\/span>.<\/li>\n<li><strong>\u00c9tape 3 (Tests d&rsquo;int\u00e9gration et d\u00e9ploiement) :<\/strong> <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\min} = 10\">$\\text{\\min} = 10$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\text{\\max} = 25\">$\\text{\\max} = 25$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\text{mode} = 12\">$\\text{mode} = 12$<\/span>.<\/li>\n<\/ul>\n<p>Quelle est la probabilit\u00e9 cumulative que la dur\u00e9e totale du projet d\u00e9passe l&rsquo;engagement contractuel initial fix\u00e9 \u00e0 $60$ jours ouvr\u00e9s ?<\/p>\n<p><code>set.seed(123)<br \/>\nn_projets &lt;- 50000<\/p>\n<p># Simulation stochastique des dur\u00e9es de chaque \u00e9tape<br \/>\nduree_etape1 &lt;- rtri(n_projets, min = 5,  max = 15, mode = 8)<br \/>\nduree_etape2 &lt;- rtri(n_projets, min = 20, max = 50, mode = 30)<br \/>\nduree_etape3 &lt;- rtri(n_projets, min = 10, max = 25, mode = 12)<\/p>\n<p># Agr\u00e9gation s\u00e9quentielle lin\u00e9aire de la dur\u00e9e globale du chemin critique<br \/>\nduree_totale_projet &lt;- duree_etape1 + duree_etape2 + duree_etape3<\/p>\n<p># \u00c9valuation probabiliste de d\u00e9passement du seuil contractuel de 60 jours<br \/>\nproba_depassement_contrat  60)<br \/>\ncat(\"Risque estim\u00e9 de d\u00e9passer l'\u00e9ch\u00e9ance de 60 jours :\", scales::percent(proba_depassement_contrat, accuracy = 0.1), \"n\")<\/p>\n<p># Calcul des indicateurs de d\u00e9lai<br \/>\ncat(\"D\u00e9lai m\u00e9dian pr\u00e9visionnel :\", median(duree_totale_projet), \"joursn\")<br \/>\ncat(\"Percentile 95% (D\u00e9lai garanti au client) :\", quantile(duree_totale_projet, 0.95), \"joursn\")<br \/>\n<\/code><\/p>\n<p>En agr\u00e9geant ainsi les r\u00e9alisations, nous constatons l&rsquo;\u00e9mergence empirique du <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/Central_limit_theorem\">th\u00e9or\u00e8me central limite<\/a> : bien que chacune des trois sous-\u00e9tapes suive une loi triangulaire asym\u00e9trique, la convolution additive de ces trois lois produit une distribution composite globale dont la morphologie s&rsquo;arrondit et commence \u00e0 converger vers une distribution quasi-normale. La m\u00e9thode de Monte-Carlo sous R fournit ainsi une estimation robuste sans n\u00e9cessiter l&rsquo;\u00e9valuation analytique fastidieuse du produit de convolution continue d&rsquo;int\u00e9grales par morceaux.<\/p>\n<h2>10. Visualisation graphique avanc\u00e9e avec ggplot2<\/h2>\n<p>### 10.1 Construction d&rsquo;une repr\u00e9sentation graphique \u00e9l\u00e9gante de la densit\u00e9<\/p>\n<p>Pour communiquer des r\u00e9sultats scientifiques ou pr\u00e9senter des analyses d&rsquo;aide \u00e0 la d\u00e9cision \u00e0 un comit\u00e9 ex\u00e9cutif, les graphiques g\u00e9n\u00e9r\u00e9s avec le moteur de base de R manquent souvent de finesse typographique et d&rsquo;expressivit\u00e9 visuelle. L&rsquo;\u00e9cosyst\u00e8me `ggplot2` s&rsquo;impose pour concevoir des visualisations r\u00e9pondant aux normes des publications internationales.<\/p>\n<p>Construisons un script g\u00e9n\u00e9rant la silhouette compl\u00e8te de la fonction de densit\u00e9 triangulaire :<\/p>\n<p><code>library(ggplot2)<\/p>\n<p># Param\u00e8tres de notre mod\u00e8le commercial<br \/>\na &lt;- 10000<br \/>\nb &lt;- 30000<br \/>\nc &lt;- 25000<\/p>\n<p># G\u00e9n\u00e9ration des trois points d&#039;ancrage g\u00e9om\u00e9triques pr\u00e9cis<br \/>\ndonnees_triangle &lt;- data.frame(<br \/>\n  x = c(a, c, b),<br \/>\n  y = c(0, 2 \/ (b - a), 0)<br \/>\n)<\/p>\n<p># Cr\u00e9ation de la figure sous ggplot2<br \/>\np_base &lt;- ggplot(donnees_triangle, aes(x = x, y = y)) +<br \/>\n  geom_line(color = &quot;#2C3E50&quot;, linewidth = 1.2) +<br \/>\n  geom_point(color = &quot;#E74C3C&quot;, size = 3) +<br \/>\n  annotate(&quot;text&quot;, x = a, y = 0.000008, label = paste0(&quot;Min (a) = &quot;, a), hjust = 0, fontface = &quot;italic&quot;) +<br \/>\n  annotate(&quot;text&quot;, x = c, y = 2\/(b-a) + 0.000005, label = paste0(&quot;Mode (c) = &quot;, c), hjust = 0.5, fontface = &quot;bold&quot;) +<br \/>\n  annotate(&quot;text&quot;, x = b, y = 0.000008, label = paste0(&quot;Max (b) = &quot;, b), hjust = 1, fontface = &quot;italic&quot;) +<br \/>\n  scale_x_continuous(labels = scales::dollar_format(prefix = &quot;&quot;, suffix = &quot; \u20ac&quot;)) +<br \/>\n  scale_y_continuous(labels = scales::scientific_format()) +<br \/>\n  labs(<br \/>\n    title = &quot;Mod\u00e9lisation pr\u00e9visionnelle : Distribution triangulaire des recettes&quot;,<br \/>\n    subtitle = &quot;Repr\u00e9sentation analytique de la densit\u00e9 de probabilit\u00e9 continue f(x)&quot;,<br \/>\n    x = &quot;Recettes hebdomadaires (\u20ac)&quot;,<br \/>\n    y = &quot;Densit\u00e9&quot;<br \/>\n  ) +<br \/>\n  theme_minimal(base_size = 13) +<br \/>\n  theme(<br \/>\n    plot.title = element_text(face = &quot;bold&quot;, color = &quot;#1A252F&quot;),<br \/>\n    plot.subtitle = element_text(margin = margin(b = 15)),<br \/>\n    panel.grid.minor = element_blank(),<br \/>\n    axis.line = element_line(color = &quot;#BDC3C7&quot;)<br \/>\n  )<\/p>\n<p>print(p_base)<br \/>\n<\/code><\/p>\n<p>Ce rendu met en \u00e9vidence avec clart\u00e9 le cadre de r\u00e9f\u00e9rence et les ancrages nodaux caract\u00e9ristiques de la distribution.<\/p>\n<p>### 10.2 Mise en \u00e9vidence des aires de probabilit\u00e9 sous la courbe<\/p>\n<p>La valeur didactique d&rsquo;un graphique probabiliste est d\u00e9cupl\u00e9e lorsque l&rsquo;on colore directement l&rsquo;aire sous la courbe correspondant \u00e0 la probabilit\u00e9 cumul\u00e9e que l&rsquo;on cherche \u00e0 quantifier. <\/p>\n<p>Illustrons visuellement notre calcul de la section 5 (<span class=\"arabpsy-math-inline\" data-latex=\"P(X le 20,000)\">$P(X le 20,000)$<\/span>) :<\/p>\n<p><code># D\u00e9finition du quantile critique d'int\u00e9r\u00eat<br \/>\nseuil_q &lt;- 20000<br \/>\nhauteur_au_seuil &lt;- dtri(seuil_q, min = a, max = b, mode = c)<\/p>\n<p># Construction du polygone g\u00e9om\u00e9trique repr\u00e9sentant l&#039;aire cumul\u00e9e inf\u00e9rieure<br \/>\npolygone_aire &lt;- data.frame(<br \/>\n  x = c(a, seuil_q, seuil_q, a),<br \/>\n  y = c(0, 0, hauteur_au_seuil, 0)<br \/>\n)<\/p>\n<p># Enrichissement du graphique par ajout de couches polygonales<br \/>\np_aire &lt;- p_base +<br \/>\n  geom_polygon(data = polygone_aire, aes(x = x, y = y), fill = &quot;#3498DB&quot;, alpha = 0.45) +<br \/>\n  geom_vline(xintercept = seuil_q, linetype = &quot;dashed&quot;, color = &quot;#2980B9&quot;, linewidth = 0.9) +<br \/>\n  annotate(<br \/>\n    &quot;label&quot;,<br \/>\n    x = 16000,<br \/>\n    y = 0.00003,<br \/>\n    label = paste0(&quot;P(X &lt;= 20k) = &quot;, round(ptri(seuil_q, a, b, c) * 100, 1), &quot;%&quot;),<br \/>\n    fill = &quot;white&quot;,<br \/>\n    color = &quot;#2980B9&quot;,<br \/>\n    fontface = &quot;bold&quot;<br \/>\n  )<\/p>\n<p>print(p_aire)<br \/>\n<\/code><\/p>\n<p>L&rsquo;ajout de ce polygone color\u00e9 (`geom_polygon`) mat\u00e9rialise l&rsquo;int\u00e9gration d\u00e9finie et relie visuellement le concept abstrait d&rsquo;aire sous la courbe \u00e0 la probabilit\u00e9 calcul\u00e9e de <span class=\"arabpsy-math-inline\" data-latex=\"33{,}3,%\">$33{,}3,%$<\/span>.<\/p>\n<p>### 10.3 Comparaison visuelle de distributions triangulaires selon leur asym\u00e9trie<\/p>\n<p>Pour mieux appr\u00e9hender la plasticit\u00e9 g\u00e9om\u00e9trique de la distribution triangulaire en fonction de l&#8217;emplacement du mode, il est particuli\u00e8rement instructif de comparer graphiquement trois sc\u00e9narios param\u00e9triques distincts sur un support commun <span class=\"arabpsy-math-inline\" data-latex=\"[0, 100]\">$[0, 100]$<\/span> :<\/p>\n<p><code># D\u00e9finition de trois configurations asym\u00e9triques distinctes<br \/>\nscenarios &lt;- tibble::tribble(<br \/>\n  ~Scenario, ~a, ~b, ~c,<br \/>\n  &quot;Asym\u00e9trie positive (c = 20)&quot;,  0, 100, 20,<br \/>\n  &quot;Sym\u00e9trie parfaite (c = 50)&quot;,   0, 100, 50,<br \/>\n  &quot;Asym\u00e9trie n\u00e9gative (c = 80)&quot;,  0, 100, 80<br \/>\n)<\/p>\n<p># Construction d&#039;un jeu de donn\u00e9es consolid\u00e9 pour ggplot<br \/>\ndonnees_scenarios %<br \/>\n  group_by(Scenario) %&gt;%<br \/>\n  do({<br \/>\n    data.frame(<br \/>\n      x = c(.<span class=\"arabpsy-math-inline\" data-latex=\"a, .\">$a, .$<\/span>c, .$b),<br \/>\n      y = c(0, 2 \/ (.<span class=\"arabpsy-math-inline\" data-latex=\"b - .\">$b - .$<\/span>a), 0)<br \/>\n    )<br \/>\n  })<\/p>\n<p># Trac\u00e9 comparatif avec facettage<br \/>\nggplot(donnees_scenarios, aes(x = x, y = y, color = Scenario, fill = Scenario)) +<br \/>\n  geom_polygon(alpha = 0.35, linewidth = 1) +<br \/>\n  facet_wrap(~Scenario, ncol = 3) +<br \/>\n  scale_color_brewer(palette = \"Set1\") +<br \/>\n  scale_fill_brewer(palette = \"Set1\") +<br \/>\n  labs(<br \/>\n    title = \"Morphologie compar\u00e9e de la distribution triangulaire\",<br \/>\n    subtitle = \"Sensibilit\u00e9 de l'asym\u00e9trie selon le positionnement relatif du mode sur l'intervalle [0, 100]\",<br \/>\n    x = \"Support de la variable X\",<br \/>\n    y = \"Densit\u00e9 f(x)\"<br \/>\n  ) +<br \/>\n  theme_minimal(base_size = 12) +<br \/>\n  theme(<br \/>\n    legend.position = \"none\",<br \/>\n    strip.text = element_text(face = \"bold\", size = 11),<br \/>\n    panel.spacing = unit(1.5, \"lines\")<br \/>\n  )<br \/>\n<\/code><\/p>\n<p>La disposition en facettes (`facet_wrap`) permet d&rsquo;appr\u00e9cier la mani\u00e8re dont le barycentre de probabilit\u00e9 glisse d&rsquo;une extr\u00e9mit\u00e9 \u00e0 l&rsquo;autre sans alt\u00e9rer la hauteur maximale du pic (<span class=\"arabpsy-math-inline\" data-latex=\"h = 2 \/ 100 = 0{,}02\">$h = 2 \/ 100 = 0{,}02$<\/span>). Cette coh\u00e9rence illustre la flexibilit\u00e9 d&rsquo;adaptation de la loi \u00e0 diverses hypoth\u00e8ses de recherche.<\/p>\n<h2>11. \u00c9tudes de cas appliqu\u00e9es en mod\u00e9lisation psychologique et comportementale<\/h2>\n<p>### 11.1 Mod\u00e9lisation des temps de r\u00e9action cognitive dans des t\u00e2ches exp\u00e9rimentales<\/p>\n<p>En chronom\u00e9trie mentale et en neuropsychologie exp\u00e9rimentale, l&rsquo;analyse des temps de r\u00e9action (TR) face \u00e0 un stimulus visuel ou auditif constitue une m\u00e9thode standard pour \u00e9valuer l&rsquo;architecture cognitive humaine. Ces distributions de latences pr\u00e9sentent universellement des caract\u00e9ristiques morphologiques strictes :<\/p>\n<ul>\n<li>Une borne incompressible minimale <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>, impos\u00e9e par la vitesse de conduction nerveuse axonale et la transduction r\u00e9tinienne (approximativement $150$ millisecondes pour un sujet adulte sain).<\/li>\n<li>Un mode de r\u00e9ponse hautement synchronis\u00e9 <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span>, repr\u00e9sentant la vitesse de traitement perceptivo-moteur optimale (souvent situ\u00e9 vers $250$ ms dans une t\u00e2che de d\u00e9tection simple).<\/li>\n<li>Une longue queue de latence sup\u00e9rieure s&rsquo;\u00e9tendant vers <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>, repr\u00e9sentative des micro-d\u00e9faillances attentionnelles, des h\u00e9sitations lexicales ou de l&rsquo;inattention passag\u00e8re (pouvant atteindre $800$ ms).<\/li>\n<\/ul>\n<p>Bien que les psychologues recourent souvent \u00e0 des ajustements complexes par des distributions ex-gaussiennes ou des lois de Wald (loi inverse gaussienne), ces formalisations requi\u00e8rent l&rsquo;estimation de param\u00e8tres abstraits. La distribution triangulaire offre une alternative empirique op\u00e9rationnelle :<\/p>\n<p><code># Simulation d'un protocole de temps de r\u00e9action cognitive (TR en ms)<br \/>\ntr_min  &lt;- 150  # Seuil physiologique absolu<br \/>\ntr_mode &lt;- 240  # R\u00e9ponse modale motrice standard<br \/>\ntr_max   500 ms)<br \/>\nproba_latence_critique  500 ms) :\",<br \/>\n    scales::percent(proba_latence_critique, accuracy = 0.01), \"n\")<br \/>\n<\/code><\/p>\n<p>Calculons analytiquement cette probabilit\u00e9 avec la formule de la queue sup\u00e9rieure :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; 500) = \\frac{(750 - 500)^2}{(750 - 150)(750 - 240)} = \\frac{250^2}{600 \\times 510} = \\frac{62,500}{306,000} \\approx 0.2042484\">$$P(X &gt; 500) = \\frac{(750 &#8211; 500)^2}{(750 &#8211; 150)(750 &#8211; 240)} = \\frac{250^2}{600 \\times 510} = \\frac{62,500}{306,000} \\approx 0.2042484$$<\/span><\/p>\n<p>Environ <span class=\"arabpsy-math-inline\" data-latex=\"20{,}42,%\">$20{,}42,%$<\/span> des essais exp\u00e9rimentaux produiront une r\u00e9ponse sup\u00e9rieure \u00e0 $500$ ms. Ce param\u00e9trage permet aux chercheurs de d\u00e9limiter objectivement des fen\u00eatres de troncature pour nettoyer les donn\u00e9es sans biais arbitraire.<\/p>\n<p>### 11.2 \u00c9valuation du jugement subjectif et formalisation de l&rsquo;avis d&rsquo;expert<\/p>\n<p>L&rsquo;un des d\u00e9fis r\u00e9currents en psychologie du jugement et de la d\u00e9cision r\u00e9side dans l&rsquo;\u00e9licitation d&rsquo;estimations aupr\u00e8s d&rsquo;experts issus d&rsquo;horizons vari\u00e9s, dont les avis s&rsquo;av\u00e8rent parfois divergents. <\/p>\n<p>Supposons qu&rsquo;un comit\u00e9 de crise sanitaire doive \u00e9valuer le temps de propagation (en jours) d&rsquo;un agent pathog\u00e8ne avant d&rsquo;atteindre son pic \u00e9pid\u00e9mique au sein d&rsquo;une m\u00e9tropole. Trois groupes d&rsquo;experts fournissent des estimations subjectives contrast\u00e9es :<\/p>\n<p><code># Mod\u00e9lisation des avis d'experts divergents<br \/>\nexperts &lt;- tibble::tribble(<br \/>\n  ~Panel,        ~Min, ~Mode, ~Max,<br \/>\n  &quot;\u00c9pid\u00e9miologistes&quot;, 14,   28,    60,<br \/>\n  &quot;Virologues&quot;,       10,   21,    45,<br \/>\n  &quot;Sant\u00e9 Publique&quot;,   20,   35,    75<br \/>\n)<\/p>\n<p># Tirage stochastique de Monte-Carlo pour l&#039;agr\u00e9gation probabiliste (pooling d&#039;experts)<br \/>\nset.seed(999)<br \/>\nn_tirages &lt;- 20000<\/p>\n<p>echantillons_experts &lt;- lapply(1:nrow(experts), function(i) {<br \/>\n  rtri(n_tirages, min = experts<span class=\"arabpsy-math-inline\" data-latex=\"Min[i], max = experts\">$Min[i], max = experts$<\/span>Max[i], mode = experts$Mode[i])<br \/>\n})<\/p>\n<p># Agr\u00e9gation selon un mod\u00e8le de m\u00e9lange probabiliste \u00e9quipond\u00e9r\u00e9<br \/>\ndelais_agreges &lt;- unlist(echantillons_experts)<\/p>\n<p># Extraction des indicateurs consensuels<br \/>\ncat(&quot;D\u00e9lai \u00e9pid\u00e9mique moyen consensuel :&quot;, round(mean(delais_agreges), 1), &quot;joursn&quot;)<br \/>\ncat(&quot;Fourchette de cr\u00e9dibilit\u00e9 \u00e0 95% : [&quot;,<br \/>\n    round(quantile(delais_agreges, 0.025), 1), &quot;;&quot;,<br \/>\n    round(quantile(delais_agreges, 0.975), 1), &quot;] joursn&quot;)<br \/>\n<\/code><\/p>\n<p>En exploitant la fonction `rtri()` sous forme de m\u00e9lange stochastique, le mod\u00e9lisateur synth\u00e9tise des jugements subjectifs ind\u00e9pendants tout en respectant l&rsquo;incertitude \u00e9pist\u00e9mique globale du coll\u00e8ge d&rsquo;experts, contournant ainsi les simplifications excessives d&rsquo;une moyenne arithm\u00e9tique rigide.<\/p>\n<p>### 11.3 Estimation de l&rsquo;anxi\u00e9t\u00e9 et de la charge mentale en ergonomie cognitive<\/p>\n<p>En ergonomie cognitive et en ing\u00e9nierie des facteurs humains, l&rsquo;\u00e9valuation de la charge de travail per\u00e7ue repose fr\u00e9quemment sur des \u00e9chelles subjectives multidimensionnelles telles que le <a rel=\"noopener noreferrer\" href=\"https:\/\/en.wikipedia.org\/wiki\/NASA-TLX\">NASA-TLX (Task Load Index)<\/a>. Ces instruments fournissent des scores born\u00e9s sur une \u00e9chelle continue <span class=\"arabpsy-math-inline\" data-latex=\"[0, 100]\">$[0, 100]$<\/span>.<\/p>\n<p>Sous de fortes pressions temporelles ou op\u00e9rationnelles (par exemple chez les contr\u00f4leurs a\u00e9riens ou les pilotes militaires), le niveau de stress cognitif ne suit pas une dynamique normale sym\u00e9trique : il est g\u00e9n\u00e9ralement comprim\u00e9 dans les scores \u00e9lev\u00e9s, pr\u00e9sentant un mode \u00e9lev\u00e9 assorti d&rsquo;une variabilit\u00e9 r\u00e9siduelle.<\/p>\n<p><code># Param\u00e8tres de charge mentale sous situation d'urgence<br \/>\ncharge_min  &lt;- 40   # Plancher de tension minimale au poste<br \/>\ncharge_mode &lt;- 85   # Score modal \u00e9lev\u00e9 de saturation<br \/>\ncharge_max   90\/100)<br \/>\nrisque_surcharge &lt;- ptri(<br \/>\n  q          = 90,<br \/>\n  min        = charge_min,<br \/>\n  max        = charge_max,<br \/>\n  mode       = charge_mode,<br \/>\n  lower.tail = FALSE<br \/>\n)<\/p>\n<p>cat(&quot;Risque de basculement op\u00e9rationnel critique :&quot;, scales::percent(risque_surcharge, accuracy = 0.1), &quot;n&quot;)<br \/>\n<\/code><\/p>\n<p>La r\u00e9solution num\u00e9rique :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"P(X &gt; 90) = \\frac{(100 - 90)^2}{(100 - 40)(100 - 85)} = \\frac{10^2}{60 \\times 15} = \\frac{100}{900} = \\frac{1}{9} \\approx 11{,}1,%\">$$P(X &gt; 90) = \\frac{(100 &#8211; 90)^2}{(100 &#8211; 40)(100 &#8211; 85)} = \\frac{10^2}{60 \\times 15} = \\frac{100}{900} = \\frac{1}{9} \\approx 11{,}1,%$$<\/span><\/p>\n<p>Ce mod\u00e8le indique aux ergonomes que malgr\u00e9 un mode op\u00e9rationnel tr\u00e8s \u00e9lev\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"85\/100\">$85\/100$<\/span>), l&rsquo;op\u00e9rateur ne d\u00e9passe le seuil critique de rupture ($90$) que dans environ <span class=\"arabpsy-math-inline\" data-latex=\"11{,}1,%\">$11{,}1,%$<\/span> des situations de travail, permettant d&rsquo;objectiver les besoins de redondance humaine au poste de contr\u00f4le.<\/p>\n<h2>12. Bonnes pratiques, limites m\u00e9thodologiques et comparaison de mod\u00e8les<\/h2>\n<p>### 12.1 Limites inh\u00e9rentes \u00e0 la g\u00e9om\u00e9trie de la distribution triangulaire<\/p>\n<p>Bien que la distribution triangulaire offre une praticit\u00e9 incontestable, son utilisation comporte des limites m\u00e9thodologiques et des contraintes th\u00e9oriques que le chercheur doit int\u00e9grer :<\/p>\n<ul>\n<li><strong>Absence de diff\u00e9rentiabilit\u00e9 au sommet :<\/strong> La fonction de densit\u00e9 pr\u00e9sente un angle saillant en <span class=\"arabpsy-math-inline\" data-latex=\"x = c\">$x = c$<\/span>. Au sens de l&rsquo;analyse math\u00e9matique, la d\u00e9riv\u00e9e premi\u00e8re <span class=\"arabpsy-math-inline\" data-latex=\"f&#039;(x)\">$f'(x)$<\/span> pr\u00e9sente une discontinuit\u00e9 de saut en ce point, passant brusquement d&rsquo;une pente ascendante positive \u00e0 une pente descendante n\u00e9gative. Cette singularit\u00e9 anguleuse peut compliquer les algorithmes d&rsquo;optimisation num\u00e9rique bas\u00e9s sur le gradient (tels que les m\u00e9thodes de type Newton-Raphson ou quasi-Newton) lors de l&rsquo;estimation de param\u00e8tres par le maximum de vraisemblance.<\/li>\n<li><strong>Sensibilit\u00e9 critique aux estimations des bornes :<\/strong> Le support compact implique que la probabilit\u00e9 au-del\u00e0 de <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> est identiquement nulle. Si les experts sous-estiment la borne sup\u00e9rieure <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> par conservatisme, le mod\u00e8le exclura cat\u00e9goriquement des \u00e9v\u00e9nements qui pourraient se produire dans la r\u00e9alit\u00e9 (les risques d&rsquo;\u00ab extr\u00eame queue \u00bb ou cygnes noirs).<\/li>\n<li><strong>Inad\u00e9quation aux ph\u00e9nom\u00e8nes \u00e0 queues \u00e9paisses :<\/strong> Par construction, les queues de probabilit\u00e9 de la distribution triangulaire s&rsquo;\u00e9teignent de mani\u00e8re strictement lin\u00e9aire vers z\u00e9ro. Pour des ph\u00e9nom\u00e8nes caract\u00e9ris\u00e9s par des \u00e9v\u00e9nements extr\u00eames r\u00e9currents (comme les crises boursi\u00e8res ou les turbulences m\u00e9t\u00e9orologiques s\u00e9v\u00e8res), l&rsquo;usage d&rsquo;une distribution \u00e0 support infini ou sous-exponentielle (telle que la loi de Cauchy, de Pareto ou de Fr\u00e9chet) s&rsquo;av\u00e8re m\u00e9thodologiquement plus appropri\u00e9.<\/li>\n<\/ul>\n<p>### 12.2 Comparaison m\u00e9thodologique : Distribution triangulaire vs PERT et B\u00eata<\/p>\n<p>Pour surmonter le manque de fluidit\u00e9 g\u00e9om\u00e9trique au sommet de la distribution triangulaire, les ing\u00e9nieurs de recherche ont introduit une alternative curviligne : la distribution PERT, qui constitue une variante r\u00e9\u00e9chelonn\u00e9e de la loi B\u00eata classique d\u00e9finie sur l&rsquo;intervalle born\u00e9 <span class=\"arabpsy-math-inline\" data-latex=\"[a, b]\">$[a, b]$<\/span>.<\/p>\n<p>Le tableau comparatif ci-dessous synth\u00e9tise les divergences structurelles et param\u00e9triques s\u00e9parant ces trois mod\u00e9lisations concurrentes :<\/p>\n<table border=\"1\" cellpadding=\"8\" cellspacing=\"0\" style=\"border-collapse: collapse;width: 100%;text-align: left\">\n<thead>\n<tr style=\"background-color: #F2F4F4\">\n<th>Crit\u00e8re M\u00e9thodologique<\/th>\n<th>Distribution Triangulaire<\/th>\n<th>Distribution PERT (B\u00eata modifi\u00e9e)<\/th>\n<th>Distribution B\u00eata Classique<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td><strong>Forme g\u00e9om\u00e9trique<\/strong><\/td>\n<td>Polygonale, lin\u00e9aire par morceaux avec apex anguleux<\/td>\n<td>Courbe lisse en cloche, d\u00e9rivable sur tout l&rsquo;intervalle<\/td>\n<td>Courbe hautement flexible (lisse, en U, en J, exponentielle)<\/td>\n<\/tr>\n<tr>\n<td><strong>Param\u00e9trage requis<\/strong><\/td>\n<td>Triplet intuitif : <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> (min), <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> (max), <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span> (mode)<\/td>\n<td>Triplet identique : <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span> (min), <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span> (max), <span class=\"arabpsy-math-inline\" data-latex=\"c\">$c$<\/span> (mode)<\/td>\n<td>Quatre param\u00e8tres : <span class=\"arabpsy-math-inline\" data-latex=\"a\">$a$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"b\">$b$<\/span>, et deux formes <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha\">$\\alpha$<\/span>, <span class=\"arabpsy-math-inline\" data-latex=\"\\beta\">$\\beta$<\/span><\/td>\n<\/tr>\n<tr>\n<td><strong>Formule de l&rsquo;esp\u00e9rance<\/strong><\/td>\n<td><span class=\"arabpsy-math-inline\" data-latex=\"\\frac{a + b + c}{3}\">$\\frac{a + b + c}{3}$<\/span><\/td>\n<td><span class=\"arabpsy-math-inline\" data-latex=\"\\frac{a + 4c + b}{6}\">$\\frac{a + 4c + b}{6}$<\/span><\/td>\n<td><span class=\"arabpsy-math-inline\" data-latex=\"a + \\frac{\\alpha}{\\alpha + \\beta}(b - a)\">$a + \\frac{\\alpha}{\\alpha + \\beta}(b &#8211; a)$<\/span><\/td>\n<\/tr>\n<tr>\n<td><strong>Pond\u00e9ration accord\u00e9e au mode<\/strong><\/td>\n<td>Pond\u00e9ration \u00e9quilibr\u00e9e (poids de <span class=\"arabpsy-math-inline\" data-latex=\"1\/3\">$1\/3$<\/span>)<\/td>\n<td>Forte pond\u00e9ration centrale (poids de <span class=\"arabpsy-math-inline\" data-latex=\"4\/6\">$4\/6$<\/span>)<\/td>\n<td>D\u00e9termin\u00e9e par le ratio <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha \/ (\\alpha + \\beta)\">$\\alpha \/ (\\alpha + \\beta)$<\/span><\/td>\n<\/tr>\n<tr>\n<td><strong>Dispersion \/ Variance<\/strong><\/td>\n<td>G\u00e9n\u00e9ralement plus large pour des triplets identiques<\/td>\n<td>Plus resserr\u00e9e autour du mode modal<\/td>\n<td>Modul\u00e9e par la somme des param\u00e8tres <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha + \\beta\">$\\alpha + \\beta$<\/span><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>L&rsquo;examen de l&rsquo;esp\u00e9rance montre que la distribution PERT accorde un poids quatre fois sup\u00e9rieur au mode (<span class=\"arabpsy-math-inline\" data-latex=\"4c\">$4c$<\/span>) par rapport aux bornes extr\u00eames, ce qui tend \u00e0 r\u00e9duire la variance de la variable al\u00e9atoire comparativement \u00e0 la loi triangulaire standard. Si le mod\u00e9lisateur souhaite refl\u00e9ter une plus grande incertitude ou un scepticisme accru envers la pr\u00e9diction modale des experts, la distribution triangulaire doit \u00eatre syst\u00e9matiquement pr\u00e9f\u00e9r\u00e9e en raison de sa variance intrins\u00e8quement sup\u00e9rieure \u00e0 support \u00e9gal.<\/p>\n<p>### 12.3 Synth\u00e8se et guide d\u00e9cisionnel pour le chercheur sous R<\/p>\n<p>Pour guider efficacement les praticiens de la mod\u00e9lisation statistique dans le choix des fonctions de la suite `EnvStats`, le logigramme fonctionnel suivant structure les \u00e9tapes de d\u00e9cision :<\/p>\n<ul>\n<li>Pour \u00e9valuer la probabilit\u00e9 qu&rsquo;une variable ne d\u00e9passe pas un certain seuil (<span class=\"arabpsy-math-inline\" data-latex=\"P(X le q)\">$P(X le q)$<\/span>) : utiliser imp\u00e9rativement <code>ptri(q, min, max, mode, lower.tail = TRUE)<\/code>.<\/li>\n<li>Pour mesurer le risque qu&rsquo;une variable d\u00e9passe une valeur limite critique (<span class=\"arabpsy-math-inline\" data-latex=\"P(X &gt; q)\">$P(X &gt; q)$<\/span>) : invoquer <code>ptri(q, min, max, mode, lower.tail = FALSE)<\/code> afin d&rsquo;optimiser la pr\u00e9cision num\u00e9rique.<\/li>\n<li>Pour identifier le seuil de tol\u00e9rance ou la valeur \u00e0 risque associ\u00e9e \u00e0 un niveau de confiance fix\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"x_p\">$x_p$<\/span> tel que <span class=\"arabpsy-math-inline\" data-latex=\"P(X le x_p) = p\">$P(X le x_p) = p$<\/span>) : ex\u00e9cuter la fonction inverse <code>qtri(p, min, max, mode)<\/code>.<\/li>\n<li>Pour d\u00e9terminer l&rsquo;ordonn\u00e9e de la courbe ou ajuster des trac\u00e9s graphiques : solliciter <code>dtri(x, min, max, mode)<\/code>.<\/li>\n<li>Pour propager des incertitudes dans des mod\u00e8les multivari\u00e9s non lin\u00e9aires complexes : g\u00e9n\u00e9rer des simulations de Monte-Carlo reproductibles via <code>set.seed(...)<\/code> coupl\u00e9 \u00e0 <code>rtri(n, min, max, mode)<\/code>.<\/li>\n<\/ul>\n<p>Gr\u00e2ce \u00e0 sa combinaison unique de simplicit\u00e9 param\u00e9trique, d&rsquo;intelligibilit\u00e9 intuitive pour les experts m\u00e9tier et de flexibilit\u00e9 d&rsquo;impl\u00e9mentation dans le langage R, la distribution triangulaire s&rsquo;affirme comme un instrument statistique de premier plan pour transformer l&rsquo;incertitude subjective en pr\u00e9visions rigoureuses, quantifiables et d\u00e9cisionnelles.<\/p>\n<h2>R\u00e9f\u00e9rences<\/h2>\n<ul>\n<li>Johnson, N. L., Kotz, S., &amp; Balakrishnan, N. (1995). <em>Continuous Univariate Distributions, Volume 2<\/em> (2nd ed.). John Wiley &amp; Sons. <a rel=\"noopener noreferrer\" href=\"https:\/\/www.wiley.com\/en-us\/Continuous+Univariate+Distributions%2C+Volume+2%2C+2nd+Edition-p-9780471584940\">https:\/\/www.wiley.com\/en-us\/Continuous+Univariate+Distributions%2C+Volume+2%2C+2nd+Edition-p-9780471584940<\/a><\/li>\n<li>Malcolm, D. G., Roseboom, J. H., Clark, C. E., &amp; Fazar, W. (1959). Application of a Technique for Research and Development Program Evaluation (PERT). <em>Operations Research<\/em>, 7(5), 646\u2013669. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1287\/opre.7.5.646\">https:\/\/doi.org\/10.1287\/opre.7.5.646<\/a><\/li>\n<li>Millard, S. P. (2013). <em>EnvStats: An R Package for Environmental Statistics<\/em>. Springer. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/978-1-4614-8456-1\">https:\/\/doi.org\/10.1007\/978-1-4614-8456-1<\/a><\/li>\n<li>R Core Team. (2023). <em>R: A Language and Environment for Statistical Computing<\/em>. R Foundation for Statistical Computing, Vienna, Austria. <a rel=\"noopener noreferrer\" href=\"https:\/\/www.R-project.org\/\">https:\/\/www.R-project.org\/<\/a><\/li>\n<li>Vose, D. (2008). <em>Risk Analysis: A Quantitative Guide<\/em> (3rd ed.). John Wiley &amp; Sons. <a rel=\"noopener noreferrer\" href=\"https:\/\/www.wiley.com\/en-us\/Risk+Analysis%3A+A+Quantitative+Guide%2C+3rd+Edition-p-9780470512845\">https:\/\/www.wiley.com\/en-us\/Risk+Analysis%3A+A+Quantitative+Guide%2C+3rd+Edition-p-9780470512845<\/a><\/li>\n<li>Wickham, H. (2016). <em>ggplot2: Elegant Graphics for Data Analysis<\/em>. Springer-Verlag New York. <a rel=\"noopener noreferrer\" href=\"https:\/\/ggplot2.tidyverse.org\">https:\/\/ggplot2.tidyverse.org<\/a><\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>Guide acad\u00e9mique complet sur la distribution triangulaire dans R : th\u00e9orie math\u00e9matique, impl\u00e9mentation avec EnvStats, calculs de probabilit\u00e9s et cas pratiques.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","template":"","categories":[2193,359],"tags":[9008,9194,9193,5205,2882],"class_list":["post-7984","psych_stat","type-psych_stat","status-publish","hentry","category-programmation-r","category-statistiques-appliquees","tag-distribution-triangulaire","tag-envstats","tag-ptri-r","tag-simulation-monte-carlo","tag-statistiques-r"],"_links":{"self":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/7984","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=7984"}],"version-history":[{"count":1,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/7984\/revisions"}],"predecessor-version":[{"id":7988,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/7984\/revisions\/7988"}],"wp:attachment":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7984"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7984"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7984"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}