variation: Analyse Coefficient Variation Systématique

#' limref
#' 
#' Cherche dans \code{x} les colonnes des limites inférieures (\code{liminf_cvsXX}) et supérieures (\code{limsup_cvsXX}), puis arrange le tout pour indiquer les CVS de références avec les valeurs de leurs limites.
#'
#' @param x data.
#'
#' @return data.table avec (2 * length(cvs)) observations et 2 variables : cvs + valeur
#' @import data.table
#' @keywords internal
#' @export
limref <- function(x){
  #### Indiquer quelles sont les limites de référence selon les CVS de référence
  #### x : tableau d'analyse
  
  x <- x %>% select(code, starts_with("liminf_cvs"), starts_with("limsup_cvs")) %>% as.data.table()  # sélection des colonnes nécessaires
  x <- melt(x, id.vars = "code", variable.name = "cvs", value.name = "valeur")  # colonnes en lignes
  x[, cvs := as.numeric(substr(cvs, 11, 11))]  # conserver la valeur du CVS
  x <- unique(x[, .(cvs, valeur)])  # tableau indiquant la limite et sa valeur
  return(x)
}