From 2656250b9c3d5e165b3ecdbbb11f1d1f6055a82e Mon Sep 17 00:00:00 2001 From: Arthur DANJOU Date: Tue, 5 Nov 2024 10:43:22 +0100 Subject: [PATCH] Remove RStudio files --- M1/General Linear Models/TP1/.RData | Bin 7819 -> 0 bytes M1/General Linear Models/TP1/.Rhistory | 363 ------------------------- M1/General Linear Models/TP1/TP1.Rproj | 13 - 3 files changed, 376 deletions(-) delete mode 100644 M1/General Linear Models/TP1/.RData delete mode 100644 M1/General Linear Models/TP1/.Rhistory delete mode 100644 M1/General Linear Models/TP1/TP1.Rproj diff --git a/M1/General Linear Models/TP1/.RData b/M1/General Linear Models/TP1/.RData deleted file mode 100644 index 4cc005e8160f3dc27bfe6b12ca96cf5d242c2979..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 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 diff --git a/M1/General Linear Models/TP1/.Rhistory b/M1/General Linear Models/TP1/.Rhistory deleted file mode 100644 index 6534365..0000000 --- a/M1/General Linear Models/TP1/.Rhistory +++ /dev/null @@ -1,363 +0,0 @@ -library(rmarkdown) -health <- read.table("health.txt", header = TRUE, sep = " ", dec = ".") -paged_table(health) -library(dplyr) -names(health) -library(dplyr) -names(health) -Health<-health[,2:4] -names(Ozone) -library(dplyr) -names(health) -Health<-health[,2:4] -names(Health) -library(dplyr) -names(health) -Health<-health[,2:5] -names(Health) -library(ggplot2) -library(plotly) -p1<-ggplot(health) + aes(x = T12, y = maxO3) + geom_point(col = 'red', size = 0.5) + geom_smooth(method = "lm", se = FALSE) -ggplotly(p1) -library(ggplot2) -library(plotly) -p1<-ggplot(health) + aes(x = age, y = y) + geom_point(col = 'red', size = 0.5) + geom_smooth(method = "lm", se = FALSE) -ggplotly(p1) -library(rmarkdown) -health <- read.table("health.txt", header = TRUE, sep = " ", dec = ".") -paged_table(health) -library(rmarkdown) -health <- read.table("health.txt", header = TRUE, sep = " ", dec = ".") -paged_table(health) -library(dplyr) -library(corrplot) -install.packages("corrplot") -library(dplyr) -library(corrplot) -correlation_matrix<-cor(Health) -library(dplyr) -library(corrplot) -correlation_matrix<-cor(health) -corrplot(correlation_matrix, order = 'hclust',addrect = 3) -GGally -install.packages("GGally") -library(dplyr) -library(corrplot) -correlation_matrix<-cor(health) -corrplot(correlation_matrix, order = 'hclust',addrect = 3) -library(GGally) -ggpairs(Ozone) -library(dplyr) -library(corrplot) -correlation_matrix<-cor(health) -corrplot(correlation_matrix, order = 'hclust',addrect = 3) -library(GGally) -ggpairs(health) -library(dplyr) -library(corrplot) -correlation_matrix<-cor(health) -corrplot(correlation_matrix, order = 'hclust',addrect = 3) -library(GGally) -ggpairs(health) -library(dplyr) -library(corrplot) -correlation_matrix<-cor(health) -corrplot(correlation_matrix, order = 'hclust',addrect = 3) -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) -install.packages("ggfortify") -library(ggfortify) -autoplot(mod,1) -library(ggfortify) -autoplot(model,1) -library(ggfortify) -autoplot(model,1) -autoplot(model,3) -library(ggfortify) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -install.packages("car") -library(ggfortify) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -library(ggfortify) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -library(ggfortify) -library(car) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -library(ggfortify) -library(car) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -library(ggfortify) -library(car) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -autoplot(model,2) -model <- lm(y ~ age, data = Health) -coefficients(model) -library(ggfortify) -library(car) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -autoplot(model,2) -model <- lm(y ~ ., data = Health) -coefficients(model) -library(ggfortify) -library(car) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -autoplot(model,2) -library(ggfortify) -library(car) -autoplot(model,1) -autoplot(model,3) -set.seed(0) -durbinWatsonTest(model) -autoplot(model,2) -model <- lm(y ~ ., data = Health) -coefficients(model) -summary(model) -model <- lm(y ~ age, data = Health) -coefficients(model) -summary(model) -library(ggfortify) -library(car) -autoplot(model,1) -model <- lm(y ~ ., data = Health) -coefficients(model) -summary(model) -library(ggfortify) -library(car) -autoplot(model,1) -library(GGally) -ggpairs(model) -library(GGally) -ggpairs(health) -library(GGally) -ggpairs(Health) -library(GGally) -ggpairs(Health, mapping = F) -library(GGally) -ggpairs(Health, progress = F) -model2 <- lm(y ~ age**2 + tri + chol, data = Health) -model2 <- lm(y ~ age**2 + tri + chol, data = Health) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -autoplot(model2,3) -set.seed(0) -durbinWatsonTest(model2) -autoplot(model2,2) -model2 <- lm(y ~ sqrt(age) + tri + chol, data = Health) -summary(model2) -coefficients(model2) -model2 <- lm(y ~ sqrt(age) + tri + chol, data = Health) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -Health2 <- Health -Health2[1] <- Health2[1]^2 -model2 <- lm(y ~ ., data = Health) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -View(Health) -View(Health) -View(Health2) -View(Health2) -Health2 <- Health -View(Health2) -View(Health2) -Health2 <- Health -Health2[2] <- Health2[2]^2 -model2 <- lm(y ~ ., data = Health) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -View(Health2) -View(Health2) -autoplot(model2,3) -Health2 <- Health -Health2[2] <- Health2[2]^2 -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -autoplot(model2,3) -set.seed(0) -durbinWatsonTest(model2) -autoplot(model2,2) -Health2 <- Health -Health2[2] <- sqrt(Health2[2]) -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -Health2 <- Health -Health2[2] <- Health2[2]^2 -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -Health2 <- Health -Health2[2] <- Health2[2]^2 -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -autoplot(model2,3) -Health2 <- Health -Health2[6] <- Health2[2]^2 -View(Health2) -View(Health2) -Health2 <- c(Health, c()) -Health2[6] <- Health2[2]^2 -Health2 <- c(Health, c()) -Health2[5] <- Health2[2]^2 -View(Health2) -View(Health2) -Health2 <- Health -Health2 <- append(Health2, Health[2]^2) -model2 <- lm(y ~ ., data = Health2) -View(Health2) -Health2 <- Health -Health2 <- append(Health2, Health[2]^2) -model2 <- lm(y ~ ., data = Health2) -Health2 <- Health -# Add to Health a new column with the square of the age named age_sq -Health2$age_sq <- Health2$age^2 -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -View(Health2) -Health2 <- Health -the age named age_sq -library(ggfortify) -library(car) -autoplot(model2,1) -Health2 <- Health -Health2$age_sq <- Health2$age^2 -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -autoplot(model2,3) -autoplot(model2,2) -View(Health2) -View(Health2) -Health2 <- Health -Health2$age_sq <- sqrt(Health2$age) -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -Health2 <- Health -Health2$age_sq <- Health2$age^2 -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -View(Health2) -View(Health2) -Health2 <- Health -Health2$age_sq <- Health2$age^2 -Health2 <- Health2[1:99,] -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -Health2 <- Health -Health2$age_sq <- Health2$age^2 -Health2 <- Health2[1:5,24] -model2 <- lm(y ~ ., data = Health2) -Health2 <- Health -Health2$age_sq <- Health2$age^2 -Health2 <- Health2[1:5,] -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -View(Health2) -Health2 <- Health -Health2$age_sq <- Health2$age^2 -Health2 <- Health2[1:24,] -model2 <- lm(y ~ ., data = Health2) -summary(model2) -coefficients(model2) -library(ggfortify) -library(car) -autoplot(model2,1) -autoplot(model2,3) -set.seed(0) -durbinWatsonTest(model2) -autoplot(model2,2) -Health2 <- Health -Health2$age_sq <- Health2$age^2 -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.Rproj b/M1/General Linear Models/TP1/TP1.Rproj deleted file mode 100644 index 8e3c2eb..0000000 --- a/M1/General Linear Models/TP1/TP1.Rproj +++ /dev/null @@ -1,13 +0,0 @@ -Version: 1.0 - -RestoreWorkspace: Default -SaveWorkspace: Default -AlwaysSaveHistory: Default - -EnableCodeIndexing: Yes -UseSpacesForTab: Yes -NumSpacesForTab: 2 -Encoding: UTF-8 - -RnwWeave: Sweave -LaTeX: pdfLaTeX