From b9a96a232a587d6bd6eca338b58cd21f6a0f3f2f Mon Sep 17 00:00:00 2001 From: c0c229255edbae416ff7492c17f6e981 Date: Wed, 27 Aug 2025 12:12:35 +0000 Subject: [PATCH] Ajout script R pour filtrer donnees d'entree de l'exo 4 --- module2/exo4/prep_data.R | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 module2/exo4/prep_data.R diff --git a/module2/exo4/prep_data.R b/module2/exo4/prep_data.R new file mode 100644 index 0000000..695bcba --- /dev/null +++ b/module2/exo4/prep_data.R @@ -0,0 +1,17 @@ +#!/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) -- 2.18.1