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"),