Corrected group sizes for quantitative values (removal of NA occurences)

R/desc_groupe.R

@@ -158,7 +158,7 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU
       HTML("<tr><td class='var'>", etiq, "</td>", sep="")
       
       for (level in levels(modulo))
-        HTML("<td>",length(table[[var]][modulo==level]) ,"</td><td>",format(mean(table[[var]][modulo==level], na.rm=T), digits=nbdec,nsmall=nbdec), "</td><td>", format(sd(table[[var]][modulo==level],na.rm=T), digits=nbdec,nsmall=nbdec), "</td>", sep="")
+        HTML("<td>",length(na.omit(table[[var]][modulo==level])) ,"</td><td>",format(mean(table[[var]][modulo==level], na.rm=T), digits=nbdec,nsmall=nbdec), "</td><td>", format(sd(table[[var]][modulo==level],na.rm=T), digits=nbdec,nsmall=nbdec), "</td>", sep="")
       
       HTML("<td>", format(p,digits=nbdecp,nsmall=nbdecp), sep="")
       if (!is.na(p))