From c69517dc6f72e34d9346c178a78401e61291b937 Mon Sep 17 00:00:00 2001 From: Louis Date: Sat, 4 May 2024 18:43:57 +0200 Subject: [PATCH] Renaming preprocessing --- 02_preprocessing.R | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/02_preprocessing.R b/02_preprocessing.R index 6fdd7b7..8770543 100644 --- a/02_preprocessing.R +++ b/02_preprocessing.R @@ -259,7 +259,13 @@ out_data <- joined_data[!is.na(joined_data[["code_cours"]]), ] %>% pivot_wider(names_from = code_bloc, values_from = code_cours, values_fn = filtrage) %>% filter(!is.na(ine)) -out_data <- out_data %>% relocate(any_of(c("ine", "dominante3A", "parcours", "domaine2A"))) +out_data <- out_data %>% relocate(any_of(c( + "ine", "dominante3A", "parcours", "domaine2A", "1AC-OUVERTURE", "1AC-MI", + "2A-UEchoix-S1-UC1", "2A-UEchoix-S1-UC2", "2A-UEchoix-S2-UC3", + "2A-UEchoix-S2-UC4", + "2A-UEchoix-S2-UC5", "2A-UEchoix-S2-UC6", + "2A-Projet-S2" +))) write.csv(out_data, file.path(here(), "data", "02_preprocessed_data.csv"),