From cb5713ff6df0cc81beeec0bd0dbea1259c2f15bd Mon Sep 17 00:00:00 2001 From: Arthur DANJOU Date: Tue, 5 Nov 2024 10:43:02 +0100 Subject: [PATCH] Fix TP1 --- M1/General Linear Models/TP1/.RData | Bin 7828 -> 7819 bytes M1/General Linear Models/TP1/.Rhistory | 18 ++++++++++++++++++ M1/General Linear Models/TP1/TP1.Rmd | 23 +++++++++++++---------- 3 files changed, 31 insertions(+), 10 deletions(-) diff --git a/M1/General Linear Models/TP1/.RData b/M1/General Linear Models/TP1/.RData index c51e7bbb0798a51e8c9bacf0f7ddcd4b8c86b3c0..4cc005e8160f3dc27bfe6b12ca96cf5d242c2979 100644 GIT binary patch literal 7819 zcmV;69(3U!iwFP!000001MNErI8|NO*E|m;Q)DcOj44g-K4hwpsZv6QYv#&DhBBs< zDI!BMmm;&G;+`9tWFDhbX2}>K#r?10D&G43zrOEz{`dX=&hwmSuf5OOYY%Jfwb$Bb zZEZ!pZM1r{2n2!*K~7GBAfq6F2#UkH%3?ba2y#+Fh6F*5pdqA`c4#w{tuz6Xg^;61 zAV?YKQQ;z!*BAQb*8qwc)uBt0d4OwevQe~4B;Z4~-B*1z0Js?Q*1q7iTSbk+-q;R> zApp$tnWaKH;r;ebC`VJ2gVUC!A~ItO6cKcCv|0kmO)b&3#C{Plj4-DN(A-j=IFOCq zeSH@Lz8g7ZWXSw9Mh08rxL)_2 zWgfOOu+kqS31J%>rq!#|Dv5;<|I+G+AcA@gVMpe;05*c_i&PSq zFia&-Ewrsl7+b%4zgl2UIzW8hnyN;51o=^RtglP-!{S_#;+Lj}V`-!$Qba(S2y7z) zGDKiI5!gWlWQo8|BCu--AeE9_hNPAu>1Al!G9dbtg0neSN$kJfu1u}0d%A2i-|2T>e=^Hk!B4y!Q3$!OYhUM6_Blw#VUd3YQ- zb{Lptb|oN-&-!0Z*V%&o#J5M}=9DrLwLO{RxS2k(|9O$-+OTTm7si=@B1K_r*O4rp zb#ju}DY5pmF>iaYQ$n2#V|%=jFMZzAeGzg*P6ilma?k3*mS4DSu|GQ&i<1rB^r1o) z`B~~=&f&HDux}kV;EwHZgX#Fp5{f#`BhQJ6Vyk6w0HH6*N$=i)97^1}>ClAHPgwYG zN%&$8@wZDC*oI(OSl#oBd5MLfnezTvtkvTL95i3& zDpgsB0gXcxlyaQ$pgc@-eL?Yg@XjVokTnnqx*oT#5p;n-1=#vx|6Mw8@r6igUFisD z46@dslt6-)jQo_JkVzoVhk?yiT^{6@pJP3e$q%ydBq=$aA3(WO_hH42Qva`4;Q~7; zme@Pb)_LVkw!rko4S>jIR~$=p$T}K+aZtfm;y}L@{L@mL?Uk^KTQAjdhh5^?oADEH zQ-*X&w#P?M>vAee1GAGAnL zS{jqI!5$%Qhs)S*!}af>;uaD~@Sr!ce&Q7$c$)m-)!Ak*xIDroQMG?7T%n-f%cyP* zzmWDx2zOP0)6W?QUQ-OiMT9>Wv#x#$Z6)Wy6mciuykEn{35NP`RjzA@^wDrQ@94O7 z_Qn=)#C2B>#TgAyVG5~QQXYhBO0WildvrlVnO6DbR5`e4e+a#=+&#D!p0X&LngO-e zS9q?FOMwCwt$|PbB;d+}YqqJ@41pKvmwQIuxxsgR!sUdA>w$-dYsR%}6ma?bsXY<* zEkIMg2@```4_smIW8s`O2-nJ{;BAJ6!3(TMHhJkoP{>8sn)oRnemZM`#h@B-!HOW? z>qHNvDIWw^AzN(KiA1&cBr+Ng+Z$1g{bf$nCNJ4juP^<@4_;=C!LY~8~ zTda>o97lp`BQ|F>W?N8u^Ar6fXE7WRE#xrHJqtf=+i!RDgCA(rRcYXLD}c)z3UfOX zjscuZKA>@Lfs^9hqcSmapv*@^ccz6Al&74ylcqHdrw=@JqB$}MztqYki+dvpKXPt) z;Jo)CXz+Mxc|uzZ<}6Rl^M4%xic}^kUPrd$o<1?EoihM9oWiM~0F^166-U18!%v5C zCmHD)jM=Dhk($*{FDd!Jg%QAL_h3Cp<&=*<(XR*crazA`UqHikZZJB0>p8eW?+XRW zg&;41n$E=@RdCrpcdCO2_~E((7VS(DS#Y-S6EoR|IFMy&**N;d6LiQ#3|fC-him;^ zl_y>6LA~NR_X+=4xX!bt>W*yyc>KOzx|KHz`|nB0+O)zeZ0 z#!f2S3iy->CiMb+BsqM(qqmwC#S$$Nqh&js||WnTf$J6=#qR#cja^wHjSv3oUm4J36bc1w$TGxFiR6lxt zqkO(OGCbm&8kiR<^2Ks;JmTB3XGVMzBEqEqy3fYEK=`+Oy%lppM_8|R;xaV2{fD@U}w9m;;b-PzUcIS>>uL28!-cI}dI5`~myDP6aevM!};_#aL1{9@TR zzsBd~pY(giQ`tM)p&YGD|E=tg71M9Y)ZF4rziPNERfg!dLSFn|;T3Z;_uc%=t(>C; zO|fJTBZzKKb#u|~Qi9uaL}K_27r0O(@j!EJ<8H+n8 zF9_wb6@31$3H?xKo69I9w4({(b|)ebkbLIJs#k=49t1|VrXm<1`m62|5vp}o@@ z=WS#O_$N`e)lps(kbCdRZX0hh$ohWJRZ9dVWaz}_JVzLpo7>sr!r(K6LANz)dQ(9r zIx|!g-V~6l!oc+_@C;<@af#WPP~V{=^`#-99x8b^ySFzpbVfGez8a1iGOgP(V(PsH zGAizhZpZgPr%QC|cHqb%%xP}g3PNfYMuo-UXP3u;YLSgm2Xm0cOeEm44XBe)>D{Q+d}2=i)=7Kna_V}{Hf1wvH_{6g80mOg|(K{jN& z=>zf8kbNV|#!z5I+K03hppEjH7_;POlLf@xntEo!M>=y%`}} zCPQ{1_!~bmZL5mAC?uf#P3kY}s2m`-T@%?ia$=$U26RkeeTflerDO4xfoqA;!MKd7lzZa0exf7$L> zga3W4&5r+L8z4CFzfWVnJ|}UIKiT`&6Tg2~#`S};U)kEZ=W&;|@eTim0Px`dxqI}F zw&UO3npfIrj_A|kM8|bOdc7B=nqw8Ch!tq(Z60xRM?#fv;5f@%G9$^V>bSDwCE!kt z8ecT~ljpnd4S7`@Pp=yqyqu2fIO8I3$3CY}cGtzA3c25GPhTF-hE1v!>yK@04QP06 zleF=ro9NXm4r2Wdhy6CXiO!tW$Gkeg$VXkfx4N`%LQh}F!*H(ra8kjmK>k6O!f5X5 zPn@wJIpsv@r+$*kN-Krl;2ar2#8)H5kQ$h>P7ZO}=ELQ+I<24jWH8UC5Yzz|KNc5N zl8QJ*4hCFB_piBrC@+mfa}fDXyXzU}x!7P`6Y6O5$(%K;eeZJjJq-EEr;o}tnQ zZZKOI}8LG(K)uGyiDq6^HEJ zcn29AZD>T}D0xMem#r}OK%#es+vKLwwu<+8zDj4CB1BM|T@J~JefS`_vE+#v2hL|b zbMa6*Pm7|jhU2l;<9U}{r>`J5d+Js5vTOkF?c@|K6)ybI%m=yWHg{K!WDA|aGjWc3 zw@_krL}LuTCLMhpL6bwSrl8*$avLG6yqQu`&op<>vxIit;P4JX=`92AuH#f1MAcM# zEe`Y@?+%(4iPlY(yxM$zi&`g{{JtYW+f7_;??%=Nv9URma>0G6be=D4v$x#4V=Q&PKPdP)PcALT zErB3J5hi_TPh_LOsx~F>H##eWbHFXdN(*=F*?cu#2 zLwasp)UmuSAf1tWH>Q2+%UFu(qgUlL5_kG?#CElso=?f;6jzH|_iWd=ZIj@^#Og_5 z%W08!Sc zI`?ZWX|6|xeKqx6RQJS&Yiccu^d^Sl!jyJSVz|wC8P-o$HT2E3X{V;7iz-oXXdV*6 z7to5v(i_Pz#%n6(^6a;m;T{xdQ++Q%fa1^yz2?6z#Tr`9I1x()}E07sN3BA z^vkjS%|Tj%TdMiQ%{Mk5xTND*Jo?ssv+Y}@P1TLT*0$Apo7EK_J<_mD7B#hKS|?ke z=bj&@ug!OT$~p>u0a9%P_7(ON6NX45a zf44Y%O!P~tL*G%>_xtS>lIv}$&l()z8w}YkWl?HKQ+06YV(UXa{gYQuX&Xh1Q%I<7 zxR~lMnC{J3*l8~ogJa&=~89d8*LDHTAcA#v!cBG8*&Lv3;#HejXh$%b02SAypF^T zXhENbRdD5U6PF!lMuTx@tpL{ zQo-aCQp4=>q(*Fb?P4Ljts^Mby(h$ObjF>#e(9ElAaj>@1!GJIg}y))CQmLC?&C>1 zM$oQD6&R>`lrmFA-X3J7RvAO$-C8siyfQJea@Ip@pZV=?Mc*mv z3@Dgt>$}bU@xyKHDsQIsqAw||%1oS^hY*i#PthDaSa^Kuc}FOJGP78Mq#IgvO-5NL z_iexQ`(iIFeT#N9xea_gnYljeD8s!SIDU(X_Py!XR5k^rzr^T8o@LdQ<(tv&wuFZ@ z@9KTv*nKE2|`7o5UsVj44ZSq?SEa;>tVfmkx%( z($|H{*buUBua|`4Xom-1WKxXlCJNCqy)o!`!pQA6K;58l!K3x6y#k&zkf~jIYka&Z zbuhPx&93{CbiH*uq_qwshl9(nH@xIR$XU@$ycTwuene$bzU@qJZbqm-+i0v?mx)qj zq4Y?U&F9SF(ssXn0h$kwyKfDDJa8r=HQmvW`Iv#A@#{Ulv)M05h6Tyw9%#JvX$y>w z4=8gdsACz8eMeQga-UvCTyz|*a3@puRqNPG*=kXg@NA+-8>Q+ zZY4PKCS0ERrr(s*HS=9#6iOPy$kJ{W7P9*{Dklw3nlq~~vr1xabEmwO4XBNB4!D23 zp!KqG=)~UfuvfKWk7d5@9e7QCa0!fh*X*AUy?dZ_*EpEpB%xPpKvR4&l==+&iWi{F~kIK`8G??== z-ALo1{cLR>Q1%#g@Xnc1WS-6yiE53Q&SF%Dc!PpYl?6)=g9+8hq(>Bdu9>}xPwBIC z!-clIy=#Z0twbf+WD1)^zI3Ua*|16b5T2F7CZHrOyIT%RS66d}{&XCksXGmMJ@1Xx zghdl)LyZBiRmv5(qMcXN%{8D$AVy-$Pa~}G6ikgt=b1!YWWIzUwNY1~_MU9>jQ=7U zjSJ-e%+MinUn*>>s>jY`pCOk;TNjB_WA^zxj-6aNDG~1eQf5@D&KyVY@6DPzeZJQ} zp3dXsc7ta-;uB@VRp9t*qxIbio;ws?Wz)a!u)NEi@*pWH`$6cGEv@6&SCftL^i!j8 z)xEx3$u%CNo`wdC|DGeLZsxXe-TPaz1PRHEK>0mb1_LSaSTC z)eqtq4;a5$6_(#y6%diBXX{r4+gm*1s z@q}#t7Xd5bWh1=oi+x>awjX2{bGRJx43>zIBrls zn&2bCS6jT_?vlO$@()$3-;Fy9Tg-e3_r3&!9HjCIQeGVF_9gK1q@^hEJDb7h?Ir;t z_rkSFz2Wc;R^WZyssO%`r=Eo6@&w_j$G#2}Cd2Vg8(^hMCO9Xj`ysaNG8`Z<@Gc>y z0FHF{%%9xN25v;GrJ9{{g>Pq%tr5R70d5}KqCG3v2j9w_cD|XD0|Hw#`&u`lK!}uD zB43aV95Z|iA@Y73IGcF;t=C0=I8ilvTsb@kU_~d|(#AzsO$;ZIt^e19!->%L6-*t^ z%H6wmpA!6$W>Zt++wJh94KCD}v+LmED`5%GI5a`_3&X*qltbX;o7yyb`z+Wwv~E4G zi4wS}B)-?6{0p2p-4+p)u?9|QiXGX{6$KIlw9HB=1>uBt9W9kJnQ$({piq^A5pb>I zIen7lEgZ!g5hO>=4ze=Xw5jAy!MDPz9wu5=f?H0}&m-2Zg)_;r(~^X#Kq~D~e(PJu zKteO+%f~j+aB6Dh7lpx#!1}Gc7fb3fI3kkb$lDF$e#pHDK-y$igyA@zsKoRgfX8wu&r=~c2Hv_chu~^(O1e0o3lRVszdwdt&8AVXRcIoE!0u4gm zj^oOv8*sk=QM!m5esC@6YaXpT7H|>m*=<6{&ET>FxtSsw`{BYjBR(wA>hROjsFtP& zhrxpuh1-UsdqF|YO}?Vz*WlYN{zs_od%=qm{xi;q{h+>{lcil;5RN*=Zy|*#fa`Qr zvOl!ZgS_I9stF}eP|7_w?vH&0m%W@t8wuTlpWT;s`GCI;Kfhp@quf>xXM1=K(?_O& zH#MyGx;w;hkyn|esJ!qv-J6P%nQH7fpOmu-+zD!MZP@v^aCa^^WmJnN)Nv7S4{sn5XGd>IV-um@;x%P4zyp&Y(feV0EI)Wg*(+McZO>Y#EzTwZwP3&^e|#1&=-AoSM9NVcbO(N@d|;Sck55uqU4f#x*=;^4x9%8k}KLdp%jW za;A9J6k!8bJ>D6c#X1HmQDXWha0kHyI(l+rj6M8RK~Ob{Q54kJS>&e=c;P}s%bV#P zNFm^yGP#9E2$E9T_e^gz4QI9KRqsBUgW!4JoX9kfCtPQ_IhbnL0#w?#y*?kK1Ha@I zv8)}P1JArClp|*4KrQdYQO^UzAURMhTbVx@u6|@lDp|w=YOV{F6~_C)ILU|7wd1@X zPPr+*qcI&WdZCSq6LJGMG4xj1L^V)hdy$*Ni~)uZZ7Y3tkrQq)8{-w)dKJ!x<#2~0 zG(nvk^;p41I&kp;$Ma7mN5Mnnbm}$5T=3F<#1ca}`h#c#PQ;I+4VJDhP%K5M{N<7Y zGvY7T9H@SVyYfQAuBA0Px-wm*$ccGo#P8c{^Mj)PKKyBw@>uQ^IT+uz@PKhoG{b5>@vvBk72N?SKAe{W%Nza~AZ!`8SIX|7R2Vvx)pu dH<2Iy5aIllA0q$9Bd!s1{{@x6R56A}008tZQNaKJ literal 7828 zcmV;F9&6zriwFP!000001MPbWIF;M?@G;Lr$t+_@WK3yt_DiM;nJOh@IA)F{uv~yV&YCozW%Jfna)~?DOapMdRUVnK zRBc^+<%x1|w_cq;hW+ugJ@?1Ft50M!j*VW)!1bJURj_AYP^`S?YFLXrV7_-KpLgSC zwQ8>8n>quVU)m;b>TnmkcGXdQ*zt(}CU>#RJ@TQ}=;04y2@>toSfYQd48CI2e*ED}?xBtQ1-gQ#Q&Y&e*=YvR=3I!;mcI z*&Kp8@Y4IT;u=y>=cv)ZYv|#1HxB2glW2`1-{|x`h=(o4NHKKGN0CvSPc*=rZ5Ci;vp+Wu|W=jSjTWI=1KX`H04%JH!kG?>v!z+3n+11m{4LT7I@I;JcHOs;$b6KbG|%@BEhj znu#3Yvv?-XNuPE~tgcwB;g{rNFC%Gk$<-ANdPDCZL{zp=O6i;B?R}cqtrrr}BP6qR z7Kbxifmio zYV}~t5(Vkb-*J*mm#x_Mm2+$tP9#y>p*-^5!@TU%dK%cc+*$dMp)@+L=XN<;@830% zzAzjd@{Bi+mgBZyFrpZfF}63VMexzW2m0NuqNU7y+?lMU<(q?e-(v>G3e7RtV_cEQ$9Z?6q? zFbC5`1D+ibgYQEJZeG&0x*;f&nRhR?d+zg8s@cOARWy=!hjPVtcbZ*D&Eu3%kKgcg z_q1KB(4nNdSrMy`qHm_nxE-|~unig5!aaN5QZsO_zs*RN{()v)>ZZPfU#MjRBt`v( z)i|SjC%ziFV&B!@5EN$HqE(P`WMJ&D??OyzsBXaax^TT)1JZsB6P!)nK6h)Bw9SIA zV9;u_?&`P(-}wxlm)bJi4~>TEoBF8ki;vegSQhKgjKzm5@0!K%nDa4k&DJ&#Ep+Lm zrDljJQ*Ue=6UGZMyqbor%J5okC2wdmyrX3e)`1h0pv$^ew(V9?s&bI+4v0Izg|w z@@K|RE3{DYWh>k(imSd&QI{JL+?WNBKuX_efh-7}3-o8oSh4s&8=W z+G!o*$Y}~m^^KR(0)#RG+HA8yO+Mwj_l*}(zP=$3GJ#N12&bD$*zR`vd!KS{dg+OL ziH>Vyo&dpOItJ8mwO@XnFh8nD)gO2Az>$yxpdxpzw-ZQp++R-gDD{ zxZlG2+m~)2abwyS!%)`r>Zx85VV4CbYg7CfiX2|X9dXIqJEi8K*O?FTjXoJkWM-FQ zqs1h~ZAv;XbE`rq<)rjDy8@{(8(ybO*nZmtign*f@teKz=WkrTZ7Iau=TprX8%kjy zSc}P*&w__|lh2b#i0ccKG^gRjGUM~5l6Ot&Y8q(WKeZ`ckrG?ubdL3HyL)R5K49kY z!bWCp@dmHL%ytL+T|R;*{ZrbK{XSWWi8sExc8hU`Dn)O zGADtiC($lL*X7D{iFB9UIhl4A)wqFs#zB#RYCt(FP4x94R%+ELB;LJUOVK+EBPVY& zw*IOAfll<@;@-f*xvrr*Jn!G#(W&)e;u7niu&y+9ZW}{9vO7(4=upv#xo16L0x8Vm ziBj%pv2~f1VLW&IGfKptTlp35Y;_-be=3VB`xwLhoj3u@neKfV*Ht$MXLMlnqt3DF z$??zY^jpE>TKDwdaqPtfPHDY|kA1ASOh4=%G|fHc%yL)C^O8Q6!WUOE%(qKqVe5#u zR=Z~hdDTM_G@Ef>_aLQ~R3Uz!&aU8x10ff=JVYNUs4zy+_GOnRZkN2wlR0MvjyABz zNnU+J-Qj2yB6CBek_{pE`bK#ej&^+Xc^1XAUXm~^(<{TC$BaDwBh<}`7d<<#IVj>u zgP6Kywk0H(QHSt|+U_oyr5kMADWiP^IUZ7Vqq&0{A#Y7H^HRk1<3lRbs_kb7^D@H% z*e2uL`%IOiiex6DZ9ip=S9JUD57a6>;jt~^(a71zvkUKV^OrdRIw;Xc^wq^zGXJ(j_hbQ%8G=^^f)(~rhp@smWd1U+)$ zD4+8yzI8M#!dhtJRfGcbE&n;`>lVAGD3mqFkrn+cEMz4&Yi5m3Sum?Ivr1v^@T9($ z3v7sX2`o8L*m=byY-Znd_=^VdN3vh`jl3j3`ha%7uE^KY%>!jlQM?*3%K7f$&{sCd zsdpZAdM*C0iH~lsH&HUx8T@Ryt1jtk*NP$Nd@~a=Wv*h zYgXOQQ<~mMl2tQ^dG=*}^l|GD!Q`l!becNPZgg1HR(F$O=5#U=xob+Y^utW7a++OQ z#}sHnn=N=-Z>ICoezLI$tbBwzboXopGGF(qWSwSgZyBmbqFGV5){Ox!#b^I`t}C-OVTF?iM&87%MsDuNhu+8m7i%@XjJGF<-`z+G;3L z`^&?(kPAEGQXKS>BvAv12leHVc+hZiWVFr_kZ$B`>dU^Ov!%5JfZn$+? z)d$WET=)DkZPiLU5w9XJ^>XIr0=Tl!jB1D5BO*SrornjQ@=Tp@8yhClA>tF;iFj*9 zN@i|tzvPS}7MsbJo>eH+1QZ7odlZHMvn=B=f5TgPPvTCbWnzgUf`lnAgXCsbXuDtg zWMR!nDDBbaC_5Pf?&3J;mzR_RE;fC6aads;pqN)1yDXItxYwr`$GAoTeq>jP+KUmu z&6vObIiLL+Y81ptEsl(0xsguffP*v2$qeP_y!F2rOC$a^CJtmv|IpB- zEw8bC!jdl6hEuWcwY_`~Y3##}#C*EK)W?FwiP=g@M(jb(85=P_iIv5cJ8|i~vC7Bx z2Gsp!;v3cje4@C1+kIbpQV$zMPMqy zI^pfLBG{%q2h@XdGXUb#wlsChqsaGiQ$u}X@0Qkz62H7W97M)R69E|_u$>6V5`i5= zU?&lfBLcgK!0u&$R9b2Ul3syiR-o-Gkn9SyV+Go|0?DmFyH=o;K4ez%mGTP&z;S{%!ydco-u!Yu>#cWGZYx01*q&c7wY@bpr;p zj8Ra^b0&bQa4oLFvJ2piZMYC?5EAq~>Rcz}3V~{{?fHRwbl}o+(X_^j3D6R3qe&@= z1Rab5lpm1EAm5jP%}qlA6jYsOJ(?u|vhgITxxMc|m303RrA^ZRUu)qvc2X>}cag1& z#+&RL)0Z{?BAeZCEHR-QXapocHGjDy{WkD#D{*#L!>ez1XyA^xCa|~RXW-UMnerUZ z_n^V`bhKuPIH9gqVwSE7=iS-m+fG3VH=3X}q6E?K{V|4!!ugwU<#;h|7iJ2+|3D{X zv(_;DOo&%>Ni_k1JdMaG+er>9%y_3IRH)!VtfktLR(wZN2# z!F>R(cJQ@yNgst9gC)-#8^q7)Qy({(0&D1e`QwZvjjEw~URP~d%X0Me3` zMBb_BgOv0qo~T?iz*$U|b6Ze71XZ^lNA$W-z|ACKdqgR?KrQ}F%>K}4@XL0aTB=X1%gL!n`AoqvOxj9Gx@dr6kMgJUHxXydtl0Vh?S0GBV18=hr|E) zy(Ke8hDUsNL^+o9d$FB-v7P96jxU!)CyvP+Wq~62+UCX>!p`Mjx#l&wsR;(P+(z6T zn3v7V&&V;Fq3s<_%$$v_9h@PSf2Y$!`v-&~4 zQXIZN&|6E3Vwn~R(xd%-Tv?79V$}w`YU3hKnDn$0(fK~@Wa8pRtTDiJh~R%n~XYOe z!msK0o7}8vT9ltP>aZMGt(Kf0f|oU`K+puV6JZ#ni_5y<2ci1e?-$ztp!SPGMg9}D zXGVM%qW>y*Tst>r#P{g)F9vk0)`X6rul5plCZ;Gm%&(JOEzxKvbClEaB9JdH*bmQY z;jkuJ48(U~UyDTTgu*zY9llwb>Pp$c)!GT|V2^TG?Dy;1 z{u~Jgm>{*w0=r>ZIEg~ax?Hj?m+Z?W2mWUZyr?Yu7j=A5{z-piJe7lsJ<7@2?0;4L zxncSxnOazS7}rd9waF0s-Y9_oBfM&D7JgWth1F~H%~C8oy$E7#Q`c6!r-BgM9F-h@ z#SJc+(0E(N_!DBAXhY^Ru|zck6%Ibu{Eg{^*rs^ncHan4F8KKVV5}-3wuwr4t}#T2 zZ6f_Hut$MR`oz+4f-CF%-~Lm z6JnbU%!NYLgxJPc#cTF5A-2J7@x3=oh;8^D?FhOE^1VdL3NAb$#5Q}kNqf8pIb>kG z^TQaZl5yS8Y<7@14@fiToc}=t38d{4bDawR6_RBaP*2Byfwb$r&K$xo5b9+0ItUs_ zIe~k}Q~W%%yZu>L3H}qLRK_XShoFEI`e!fZW!z?1lG7$Y~l<)yIE^ z&KZAHCPZwI>3(z4mp)98ZHY*IgZCWdn2fPKMdgp8c|T^0!Qa(6#>LIiw*FzBu}Egve#RCk_g#)krOQyjT*6`qIeJTEi5 z5WaWpN$W5oe1}Te!|vn544surEK$c%LuQRzC(L}-LB?f$G2Qq9=uEk8<4znoggL`Q zTTLjO=1{MVIvpxWhPHNXO7IUhy36UP7{ zn{$W}#${(xUVf6mpHmK+HsS~>$R-)Fy@Rm6Xx5jOZ*h!}?M9=jTpx1CSow+74For2 ze;|I&LIKMKXY>OJWbH486>U8l|yke(*naOO3)Sc*r_(!7AVUi;GBd43}tRQSC{qm3zUQ^P7ECmhYEwc?xcFfP{wKOMm>udDA(_T50`g4boFAD3vaGJ6volK z6S>VM~l2l(_FgWKnwU-)N~;Z#PQ@f5q=$!T-9|=EVQ@4G>)TU#GG7JvVWZ zf3o-U5a0jMw(%!ze`RauUBq49#`*pi0>F>|_wLa@+m3&AYhLZ6Iib%;5R(hvq}OLj zsyWs$iueKTqR%5?;Y9f4JGqtl(-XZgGc?M=!rIK5;DljTx51IT#Ln(#l1A|@ zOY$;y7~-!CO` z!ttX9F^BQ2@U?cI*Slpdf`Y?!8u#MQ!Itx%BYZByAQ!1}l9UezyMGS)G;1XW{Lf|b z`?yPjsC{rl@?ZpflNI=!ur7pe=4&KlxxGL{+VL+VMJaHC^F~;?h6&Ei?Jvc4U4a7y zN8TjH7Q#`Ep9E6+*}%=n^;BOM+~7MoQ|lz|&VXCTx9WTq8iH@!6}W6o`W%dUneKIPB?InRwok5P_+Q?DA*=^e6R zm#{`IK2v3IOIc!{Vby0i>tk1BaOOHVwKZf>PmiNplme+7JUu3X6H9N@8WYeLNKMmiGs4Y#hssXp1W1dB>Uk_)I<)kNzP=Pes zV*)m}kAuWE%8p02F>qR1&1c2YOTgx}f;UUraX2!H;^>jNub_;H{tCam)9oqX@<{cx^X*2bsS_TUvJL~n;%HoUB%pb~lV z>E!ugkff(^gvCq+6g6L~!1ASlO2xRmvkIrc6N)V(9}=8F@-&Z0LskgrI4>hyph5#W zIckm4zp8=9>+w(Y(@%gNc6O(S$Lc|^9j*oPQ2`A{0!6)t&clf{5u^`lE`jzG{LY=h z^q^f5B|lqn5@ewlw2ekE-~kxewr>XjnTJL5N65>-Q>A$An^d!4bdRrjCdu{R8v32V z!QBw8bvzDt9KocP-KqdL=bhM1cUB2hvt7Qm zqfnDjx97OJ`6gTtaEvbUra#<3`jS`st|eSddv3e%33IseU|yD}<^j0q)r2ogj0XIq zBD%fx!4dGFUGa|53smqdOb1{e!j&Cg(Z<5J;in}suJ7^+!>+T6;fhM?4RmY1pK?BqrfUAnG zeg>J>UZsAm#K6x(4V7Y3C&44nc;{AcJ{WgNl~P4y9M+|47#%3!g>lVKn7nq_f@T+( z)Inbku9+|UYKE|dYai{3%VwPdH7Id|lek0R0UbTL3C00_q9~*m%_s)y?JWy3M!a#M zVpVPQj-(K9NuAxwD-201?|-U4nU1sG{9- zs|$DViCQ&GE`X;#Gb)i^miu6zV}IXObSfaYNyxlrbDbw4gGj#_Gg!`$p7}sSARUk|HFMN*8lmw6+M3G z9m8_IX>Cr1`G>sHIs&|Dx&BLu%C!kf`X89E_V*`ke~?)6rN#eg0`eFB3`6$cdj6}D zjQ`bFtI~>Oh<|oUacwG*xRifK?(nbw;pneq3;$z=ka%I|cQ)%EdVcl$DEgm$p7pn7 mvjp+KH<90)$iH&D>q3H3;zci07x>1M*sjWACPze diff --git a/M1/General Linear Models/TP1/.Rhistory b/M1/General Linear Models/TP1/.Rhistory index bd91032..6534365 100644 --- a/M1/General Linear Models/TP1/.Rhistory +++ b/M1/General Linear Models/TP1/.Rhistory @@ -343,3 +343,21 @@ Health2 <- Health2[1:24,] model2 <- lm(y ~ ., data = Health2) summary(model2) coefficients(model2) +library(rmarkdown) +health <- read.table("health.txt", header = TRUE, sep = " ", dec = ".") +paged_table(health) +Health <- health[2:5] +library(dplyr) +library(corrplot) +correlation_matrix<-cor(Health) +corrplot(correlation_matrix, order = 'hclust',addrect = 3) +model <- lm(y ~ ., data = Health) +coefficients(model) +summary(model) +library(ggfortify) +library(car) +autoplot(model2,1:4) +library(ggfortify) +library(car) +autoplot(model,1:3) +install.packages(c("askpass", "boot", "data.table", "evaluate", "foreign", "fs", "glue", "gtable", "jsonlite", "MASS", "Matrix", "nlme", "quantreg", "Rcpp", "rmarkdown", "rstudioapi", "survival", "sys", "tinytex", "withr", "xfun")) diff --git a/M1/General Linear Models/TP1/TP1.Rmd b/M1/General Linear Models/TP1/TP1.Rmd index aaa6653..fbb6e22 100644 --- a/M1/General Linear Models/TP1/TP1.Rmd +++ b/M1/General Linear Models/TP1/TP1.Rmd @@ -1,6 +1,10 @@ +```{r} +setwd('./M1/General Linear Models/TP1') +``` + ```{r} library(rmarkdown) -health <- read.table("health.txt", header = TRUE, sep = " ", dec = ".") +health <- read.table("./health.txt", header = TRUE, sep = " ", dec = ".") paged_table(health) ``` @@ -9,8 +13,8 @@ Health <- health[2:5] library(dplyr) library(corrplot) -correlation_matrix<-cor(Health) -corrplot(correlation_matrix, order = 'hclust',addrect = 3) +correlation_matrix <- cor(Health) +corrplot(correlation_matrix, order = 'hclust', addrect = 3) ``` ```{r} @@ -23,19 +27,19 @@ summary(model) ```{r} library(ggfortify) library(car) -autoplot(model,1:3) +autoplot(model, 1:3) ``` The points are not well distributed around 0 -> [P1] is not verified The points are not well distributed around 1 -> [P2] is not verified -The QQPlot is align with the line y = x, so it is globally gaussian -> [P4] is verified +The QQPlot is aligned with the line y = x, so it is globally gaussian -> [P4] is verified ```{r} set.seed(0) durbinWatsonTest(model) ``` -The p-value is 0.58 > 0.05 -> We do not reject H0 so the residuals are not autocorrelated -> [P3] is verified +The p-value is 0.58 > 0.05 -> We do not reject H0 so the residuals are not auto-correlated -> [P3] is verified ```{r} library(GGally) @@ -58,17 +62,16 @@ coefficients(model2) ```{r} library(ggfortify) library(car) -autoplot(model2,1:4) +autoplot(model2, 1:4) ``` The points are well distributed around 0 -> [P1] is verified The points are not well distributed around 1 -> [P2] is verified -The QQPlot is align with the line y = x, so it is gaussian -> [P4] is verified +The QQPlot is aligned with the line y = x, so it is gaussian -> [P4] is verified ```{r} set.seed(0) durbinWatsonTest(model2) ``` -The p-value is 0.294 > 0.05 -> We do not reject H0 so the residuals are not autocorrelated -> [P3] is verified - +The p-value is 0.294 > 0.05 -> We do not reject H0 so the residuals are not auto-correlated -> [P3] is verified \ No newline at end of file