R/poly_stats.R

In INESSS-QC/polymed1: Polymédication

#' Statistiques descriptives
#'
#' @param data Dataset créé par les fonctions `polyTYPE_data()` où `TYPE` est le type de calcul parmi *cumulée*, *cumulée pondérée*, *continue* et *continue sans interruption*.
#'
#' @import data.table
#' @export
poly_stats <- function(data){
  x <- copy(data); rm(data)
  x <- x[  # statistiques descriptives
    , .(Moyenne = mean(nRx),
        `Écart-type` = sd(nRx),
        Min = min(nRx),
        P5 = quantile(nRx, 0.05),
        P10 = quantile(nRx, 0.10),
        Q1 = quantile(nRx, 0.25),
        `Médiane` = median(nRx),
        Q3 = quantile(nRx, 0.75),
        P90 = quantile(nRx, 0.90),
        P95 = quantile(nRx, 0.95),
        Max = max(nRx),
        n = uniqueN(ID))
  ]
  return(x)
}