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

Refactor code to use forward-pipe operator for better readability and consistency

Browse Source
This commit is contained in:
Arthur Danjou
2026-01-27 17:19:44 +01:00
parent 4697570bcc
commit 5d0c1d2b4e
6 changed files with 82 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
M2/Data Visualisation/Project/NoticeTechnique.Rmd
View File

@@ -185,9 +185,9 @@ cor_mat <- cor(vars_candidates, use = "pairwise.complete.obs")
```
```{r}
cor_df <- as.data.frame(cor_mat) %>%
tibble::rownames_to_column(var = "Var1") %>%
pivot_longer(-Var1, names_to = "Var2", values_to = "r") %>%
cor_df <- as.data.frame(cor_mat) |>
tibble::rownames_to_column(var = "Var1") |>
pivot_longer(-Var1, names_to = "Var2", values_to = "r") |>
mutate(
Var1 = factor(Var1, levels = unique(Var1)),
Var2 = factor(Var2, levels = rev(unique(Var1)))
@@ -503,7 +503,9 @@ Bien que nous ayons appliqué une transformation logarithmique pour corriger l'a
Nous appliquons donc une standardisation (Z-score) : $z = \frac{x - \mu}{\sigma}$
```{r}
data_scaled <- tb_ready |> select(log_inc, log_mort) |> scale()
data_scaled <- tb_ready |>
select(log_inc, log_mort) |>
scale()
check_table <- data.frame(
Variable = c("Incidence (Log)", "Mortalité (Log)"),