best output of allotest

sestelo · Oct 30, 2017 · 99933f7 · 99933f7
1 parent 50e4ad6
commit 99933f7
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/allotest.R b/R/allotest.R
@@ -252,6 +252,7 @@ allotest <- function(formula, data, na.action = "na.omit",
   colnames(result) <- c("Statistic", "pvalue")
 
 
+  if(length(res) > 1){
   # factores=paste('Factor',1:length(res))
   factores <- paste("Level", etiquetas[1:length(etiquetas)])
 
@@ -260,6 +261,11 @@ allotest <- function(formula, data, na.action = "na.omit",
     rownames(result) <- c(factores)
   }
 
+  }else{
+    rownames(result) <- ""
+  }
+
+
   return(result)
 
 }