Checking for NA in p value when displaying a * for a significative test

R/desc_groupe.R

@@ -161,8 +161,9 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU
         HTML("<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 (p<.05)
-        HTML("*", sep="")
+      if (!is.na(p))
+        if (p<.05)
+          HTML("*", sep="")
       HTML(" (",test,")</td>", sep="")
       
       HTML("</tr>")
@@ -195,8 +196,9 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU
       
       HTML("<tr><td class='var' colspan='", nlevels(modulo)*2+1, "'>", etiq, "</td>", sep="")
       HTML("<td>", format(p,digits=nbdecp,nsmall=nbdecp), sep="")
-      if (p<.05)
-        HTML("*", sep="")
+      if (!is.na(p))
+        if (p<.05)
+          HTML("*", sep="")
       HTML(" (",test,")</td>", sep="")
       
       # Levels de la variable qualitative