Fixed bug that dropped first error stratum in tidy.aovlist, regarding…

… issue #26
tidymodels · Feb 10, 2015 · eab8cfc · eab8cfc
1 parent ed59e24
commit eab8cfc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/anova_tidiers.R b/R/anova_tidiers.R
@@ -69,7 +69,7 @@ tidy.aovlist <- function(x, ...) {
         x <- x[-1L]
     }
 
-    ret <- plyr::ldply(x[-1], tidy, .id = "stratum")
+    ret <- plyr::ldply(x, tidy, .id = "stratum")
     # get rid of leading and training whitespace in term and stratum columns
     ret <- ret %>% mutate(term = stringr::str_trim(term),
                           stratum = stringr::str_trim(stratum))