Concentration CO2 - Sujet 1 - GuR

module3/exo3/exercice_fr.Rmd

 ---
 title: "Concentration de CO2 dans l'atmosphère depuis 1958"
-subtitle: "Sujet 1 - Exercice 03 - Module 03"
 author: "GuR"
 date: "23/09/2025"
-output: html_document
+output:
+  html_document: default
+  pdf_document: default
+subtitle: "Sujet 1 - Exercice 03 - Module 03"
 ---
 
 ```{r setup, include=FALSE}
@@ -312,9 +314,17 @@ summary(fit)
 ```{r}
 # nouveaux points = -56.452192 + 0.029176 (var_annee)
 newdata = data.frame(var_annee = c(2025,2026,2027,2028,2029,2030))
-predict(fit, newdata)
+prediction <- predict(fit, newdata)
+prediction
 ```
-=> En 2030, le modèle prédit une moyenne annuelle de concentration de CO2 de 2.78
 
+=> En 2030, le modèle prédit une variation de CO2 de 2.78 par rapport à l'année précédente.
 
+```{r}
+annee = 2024
+ligne <- which(grepl(annee, toutes_les_moyennes$Année))
+CO2_predict <- toutes_les_moyennes$Moy_CO2[ligne] + prediction
+CO2_predict
+```
 
+=> En 2030, le modèle prédit une concentration moyenne de CO2 dans l'atmosphère de **427.12 ppm**.