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

Utilise zoo::rollmean pour la moyenne mobile (k=12), ajoute library(zoo) et supprime stats::filter; renomme trend_mm en ma; met à jour le libellé du plot en "Différence tendancielle".

Browse Source
This commit is contained in:
Arthur Danjou
2026-02-13 16:31:22 +01:00
parent c737796abc
commit 27d56ddb5c
1 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
M2/Time Series/TD2.Rmd
View File

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