Clean up an ungroup that isn't needed

Author: daniel1noble

R/effect_stats.R

@@ -469,7 +469,6 @@ cor_diff <- function(cor1 = NULL, cor2 = NULL, n1 = NULL, n2 = NULL, x1 = NULL,
 #'   rowwise() %>%
 #'   mutate(out = list(magnitude_effects(xbar1, xbar2, sd1, sd2, n1, n2,
 #'                                    min_kept = 200, chunk_init = 400))) %>%
-#'   ungroup() %>%
 #'   unnest_wider(out)
 #' 
 #' # Paired, use add correlation to dataframe