R/chronique.tendance.R

In jbfagotfede39/aquatools: Tools for freshwater managers

#' Tendance d'évolution d'une chroniques
#'
#' Cette fonction permet d'analyser les tendances d'évolution de chroniques de mesures (température, niveaux, etc.)
#' @name chronique.tendance
#' @param data Jeu de données
#' @param N 
#' @keywords chronique
#' @import tidyverse
#' @export
#' @examples
#' chronique.tendance(data)
#' chronique.tendance(data, N=5)

chronique.tendance <- function(
  data = data,
  N=2
)
{
  
  ##### -------------- A FAIRE -------------- #####
  # 
  # 
  # -------------- A FAIRE -------------- #

  
  ##### Mise au format des données #####

  ##### Calcul de la tendance #####
Analyse <-
  data %>% 
  mutate(Datefine = ymd_hms(paste(chmes_date,chmes_heure,"_"))) %>% 
  arrange(desc(chmes_coderhj,Datefine)) %>% 
  mutate(Difference = lead(chmes_valeur) - chmes_valeur) %>% 
  group_by(chmes_coderhj) %>%
  top_n(n = N, wt = Datefine) %>% 
  #summarise(Moy = mean(Difference, na.rm = T)) %>% Recherche de la moyenne des valeurs de différence -> moins juste
  summarise(Difference = first(Difference), # Recherche de la première valeur de différence
            chmes_valeur = last(chmes_valeur), # Affichage de la dernière valeur mesurée
            DateValeur = last(chmes_date), # Date de la dernière valeur mesurée
            HeureValeur = as.character(last(chmes_heure)), # Heure de la dernière valeur mesurée
            DateDifference = first(chmes_date), # Date de la dernière valeur de différence valide
            HeureDifference = as.character(first(chmes_heure))) %>% # Heure de la dernière valeur de différence valide
  mutate(n = N) %>% # Affichage du nombre d'itération afin de juger de l'intensité de la tendance
  mutate(DiffSurQ = Difference/chmes_valeur) # Rapport entre la différence de débit et le débit en lui-même (intensité)
  
} # Fin de la fonction