arthur/ArtStudies
1
0
Fork 0
mirror of https://github.com/ArthurDanjou/ArtStudies.git synced 2026-01-14 18:59:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix TP1

Browse Source
This commit is contained in:
Arthur Danjou
2024-11-05 10:43:02 +01:00
parent f6f9dcce40
commit 2ccf14bcec
3 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
M1/General Linear Models/TP1/.RData
View File

Binary file not shown.

18
M1/General Linear Models/TP1/.Rhistory
View File

@@ -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"))

23
M1/General Linear Models/TP1/TP1.Rmd
View File

@@ -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