polarolouis/reforme-enseignement
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Renaming preprocessing

Browse source
This commit is contained in:
Louis Lacoste 2024-05-04 18:43:57 +02:00
parent f0d381d6a2
commit c69517dc6f
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
02_preprocessing.R
View file

@ -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) %>% pivot_wider(names_from = code_bloc, values_from = code_cours, values_fn = filtrage) %>%
filter(!is.na(ine)) 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, write.csv(out_data,
file.path(here(), "data", "02_preprocessed_data.csv"), file.path(here(), "data", "02_preprocessed_data.csv"),