R/precision.R

In INESSSQC/variation: Analyse Coefficient Variation Systématique

#' precision
#' 
#' Ajoute la colonne 'prec' à 'x' en qualifiant le pourcentage du cv (Suffisant, Limite ou Insufisant).
#'
#' @param x data.
#' @param col Nom de la colonne indiquant le pourcentage (cv).
#' @param suff Pourcentage maximal pour être suffisant.
#' @param lim Pourcentage maximal pour être limite.
#'
#' @keywords internal
#' @return data + colonne 'prec'.
#' @export
precision <- function(x, col, suff = 16.66, lim = 33.33){
  x <- as.data.table(x)
  x[, prec := "Ins."]
  x[get(col) <= lim, prec := "Lim."]
  x[get(col) <= suff, prec := "Suff."]
  return(x)
}