|
|
@@ -100,8 +100,8 @@ desc_global <- function(table, html="desc_global", titre=NULL, variables=NULL, v |
|
|
|
moy = mean(table[[var]],na.rm=T), |
|
|
|
"%/med" = , |
|
|
|
med = median(table[[var]],na.rm=T), |
|
|
|
Q1 = quantile(table[[var]], probs=.25, na.rm=T), |
|
|
|
Q3 = quantile(table[[var]], probs=.75, na.rm=T), |
|
|
|
Q1 = quantile(table[[var]], probs=.25, na.rm=T,names=F,type=3), |
|
|
|
Q3 = quantile(table[[var]], probs=.75, na.rm=T,names=F,type=3), |
|
|
|
min = min(table[[var]],na.rm=T), |
|
|
|
max = max(table[[var]],na.rm=T), |
|
|
|
et = sd(table[[var]],na.rm=T), |
|
|
|