diff --git a/module3/exo3/exercice_fr.Rmd b/module3/exo3/exercice_fr.Rmd index 67d8080f668ea406154e380af8bd6869fcd2634d..7b1a425b00612e4e42151319f7d88c301a506032 100644 --- a/module3/exo3/exercice_fr.Rmd +++ b/module3/exo3/exercice_fr.Rmd @@ -1,9 +1,11 @@ --- 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**.