R/fct_calc.R

In jomuller/vvs: Analyse des fichiers VisualValoSej

def_groupe_valo <- function(rang, date_sortie, mois_envois) {
  mois_sortie <- as.integer(format(date_sortie, format = "%m"))
  
  if(rang == 1) {
    if(mois_sortie == mois_envois) 
      grp <- "initial"
    else 
      grp <- "rattrapage"
    
  } else {
    grp <- "recodage"
  }
  
  grp
}