Ajout script R pour filtrer donnees d'entree de l'exo 4

module2/exo4/prep_data.R

+#!/usr/bin/env Rscript
+
+data = read.table("data/Q_06_latest-2024-2025_RR-T-Vent.csv", sep = ";", header = TRUE)
+str(data)
+
+# Keep only columns of interest
+data_interest = data[, c("NUM_POSTE", "NOM_USUEL", "AAAAMMJJ", "RR", "TN", "TX", "TM")]
+
+# Keep only data for Nice and for august 2025 
+filtered_name = data_interest[which(data$NOM_USUEL == "NICE"),]
+nrow(filtered_name)
+
+filtered_date = filtered_name[which(filtered_name$AAAAMMJJ > 20250731),]
+nrow(filtered_date)
+
+# Export filtered data
+write.table(filtered_date, file = "data/Q_06_latest-2024-2025_RR-T-Vent_filtered_Nice_20250801-26.csv", sep = ";", row.names = FALSE, col.names = TRUE)