{"id":225,"date":"2015-06-15T14:14:57","date_gmt":"2015-06-15T14:14:57","guid":{"rendered":"http:\/\/blog.tiran.info\/?p=225"},"modified":"2015-06-15T14:14:57","modified_gmt":"2015-06-15T14:14:57","slug":"regression-lineaire-simple-avec-r","status":"publish","type":"post","link":"https:\/\/blog.tiran.stream\/?p=225","title":{"rendered":"R\u00e9gression lin\u00e9aire simple avec R"},"content":{"rendered":"<p>Dans la continuit\u00e9 du <a href=\"http:\/\/blog.tiran.info\/regression-lineaire-simple-avec-oracle\">pr\u00e9c\u00e9dent billet<\/a>, en utilisant le m\u00eame jeu de donn\u00e9es, je r\u00e9alise cette fois-ci la r\u00e9gression lin\u00e9aire avec R.<\/p>\n<p><strong>Chargement et pr\u00e9paration des donn\u00e9es<\/strong><\/p>\n<p>Les donn\u00e9es sont charg\u00e9es dans un dataframe auquel on adjoint un champ DMA en faisant la somme (via apply) des autres quantit\u00e9s:<\/p>\n<pre>&gt; dechets &lt;- read.csv2(\"C:\/RTI\/Stats\/dechets_2013_par_dept.csv\", stringsAsFactors=F)\n&gt; dechets &lt;- dechets[dechets$Departement != \"France\",]\n&gt; dechets$DMA &lt;- apply(dechets[,(3:9)],1,sum, na.rm=T)\n&gt;<\/pre>\n<p><strong>R\u00e9alisation de la r\u00e9gression lin\u00e9aire<\/strong><\/p>\n<p>On peut noter que l&rsquo;on retrouve les m\u00eames coefficients qu&rsquo;avec les fonctions Oracle REGR_SLOPE, REGR_INTERCEPT &amp; REGR_R2:<\/p>\n<pre>&gt; res &lt;- lm(DMA~Population.totale.desservie, data=dechets)\n&gt; \n&gt; summary(res)\n\nCall:\nlm(formula = DMA ~ Population.totale.desservie, data = dechets)\n\nResiduals:\n    Min      1Q  Median      3Q     Max \n-289411  -34913  -17616   42107  216689 \n\nCoefficients:\n                             Estimate Std. Error t value Pr(&gt;|t|)    \n(Intercept)                 3.354e+04  1.314e+04   2.553   0.0122 *  \nPopulation.totale.desservie 5.405e-01  1.641e-02  32.933    \n&gt; coef(res)\n                (Intercept) Population.totale.desservie \n               3.353637e+04                5.405394e-01 \n&gt;<\/pre>\n<p><strong>Affichage du nuage de points et de la droite de r\u00e9gression<\/strong><\/p>\n<p>On peut enfin repr\u00e9senter notre \u00e9chantillon ainsi que la droite de r\u00e9gression afin d&rsquo;appr\u00e9hender visuellement l&rsquo;ad\u00e9quation de la droite de r\u00e9gression avec les donn\u00e9es collect\u00e9es:<\/p>\n<pre>&gt; plot(dechets$Population.totale.desservie,dechets$DMA, main=\"Tonnes de d\u00e9chets m\u00e9nagers et assimil\u00e9s par habitants\", pch=20, xlab=\"Nombre d'habitants\", ylab=\"Tonnes de DMA\")\n&gt; abline(res, col=\"red\", lwd=3)<\/pre>\n<p><a href=\"https:\/\/blog.tiran.stream\/wp-content\/uploads\/2015\/06\/regr.png\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter wp-image-226 size-full\" src=\"https:\/\/blog.tiran.stream\/wp-content\/uploads\/2015\/06\/regr.png\" alt=\"regr\" width=\"656\" height=\"541\" \/><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Dans la continuit\u00e9 du pr\u00e9c\u00e9dent billet, en utilisant le m\u00eame jeu de donn\u00e9es, je r\u00e9alise cette fois-ci la r\u00e9gression lin\u00e9aire<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"colormag_page_container_layout":"default_layout","colormag_page_sidebar_layout":"default_layout","footnotes":""},"categories":[12,13,14],"tags":[],"class_list":["post-225","post","type-post","status-publish","format-standard","hentry","category-r","category-regression","category-statistique"],"_links":{"self":[{"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=\/wp\/v2\/posts\/225","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=225"}],"version-history":[{"count":0,"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=\/wp\/v2\/posts\/225\/revisions"}],"wp:attachment":[{"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=225"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=225"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.tiran.stream\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=225"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}