From 27d56ddb5c29279287f39fa29fe1d3ca028aba82 Mon Sep 17 00:00:00 2001
From: Arthur DANJOU <arthurdanjou@outlook.fr>
Date: Fri, 13 Feb 2026 16:31:22 +0100
Subject: [PATCH] =?UTF-8?q?Utilise=20zoo::rollmean=20pour=20la=20moyenne?=
 =?UTF-8?q?=20mobile=20(k=3D12),=20ajoute=20library(zoo)=20et=20supprime?=
 =?UTF-8?q?=20stats::filter;=20renomme=20trend=5Fmm=20en=20ma;=20met=20?=
 =?UTF-8?q?=C3=A0=20jour=20le=20libell=C3=A9=20du=20plot=20en=20"Diff?=
 =?UTF-8?q?=C3=A9rence=20tendancielle".?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 M2/Time Series/TD2.Rmd | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/M2/Time Series/TD2.Rmd b/M2/Time Series/TD2.Rmd
index 8ffad5d..f8a35ec 100644
--- a/M2/Time Series/TD2.Rmd	
+++ b/M2/Time Series/TD2.Rmd	
@@ -37,13 +37,9 @@ Il y a en effet une saisonnalité dans les données, avec des pics réguliers to
 ## 3. Moyenne mobile
 
 ```{r}
-library(stats)
+library(zoo)
 
-trend_mm <- filter(
-  AirPassengers,
-  filter = c(1 / 24, rep(1 / 12, 11), 1 / 24),
-  sides = 2
-)
+ma <- rollmean(AirPassengers, k = 12, fill = NA)
 
 plot(
   AirPassengers,
@@ -90,7 +86,7 @@ trend_diff <- diff(log(AirPassengers))
 saison_diff <- diff(log(AirPassengers), lag = 12)
 final_diff <- diff(trend_diff, lag = 12)
 
-plot(trend_diff, main = "Différence première (Trend)", ylab = "Différence")
+plot(trend_diff, main = "Différence tendancielle (Trend)", ylab = "Différence tendancielle")
 plot(saison_diff, main = "Différence saisonnière (Seasonal)", ylab = "Différence saisonnière")
 plot(final_diff, main = "Différence finale (Trend + Seasonal)", ylab = "Différence finale")
 ```