# Chemin menant au fichier demetra_m.csv
demetra_path <- file.path(
system.file("extdata", package = "JDCruncheR"),
"WS/ws_ipi/Output/SAProcessing-1",
"demetra_m.csv"
)
# Extraire le bilan qualité à partir du fichier demetra_m.csv
QR <- extract_QR(demetra_path)
# Calculer le score
QR <- compute_score(x = QR, n_contrib_score = 5)
# Retenir certains indicateurs
retain_indicators(QR, "score", "m7") # Retiens les indicateurs "score" et "m7"
retain_indicators(QR, c("score", "m7")) # Pareil
# Retirer des indicateurs
QR <- remove_indicators(QR, "score") # removing "score"
extract_score(QR) # est NULL car l'indicateur "score a été retiré
Run the code above in your browser using DataLab