Running examples in 'eda4treeR-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Exam3.1.1
> ### Title: Example 3.1.1 from Experimental Design & Analysis for Tree
> ###   Improvement
> ### Aliases: Exam3.1.1
> 
> ### ** Examples
> 
> 
> library(tidyverse)
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.3.1     v purrr   0.3.4
v tibble  3.0.1     v dplyr   1.0.0
v tidyr   1.1.0     v stringr 1.4.0
v readr   1.3.1     v forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()
> data(DataExam3.1.1)
> 
> fm3.8   <-     lm(
+    formula     = Mean~Repl+SeedLot
+  , data        = DataExam3.1.1
+  #, subset
+  #, weights
+  #, na.action
+  , method      = "qr"
+  , model       = TRUE
+  , x           = FALSE
+  , y           = FALSE
+  , qr          = TRUE
+  , singular.ok = TRUE
+  , contrasts   = NULL
+   )
> anova(fm3.8)
Analysis of Variance Table

Response: Mean
          Df Sum Sq Mean Sq F value   Pr(>F)   
Repl       1  2.538  2.5376  3.4197 0.138108   
SeedLot    4 63.234 15.8084 21.3035 0.005851 **
Residuals  4  2.968  0.7421                    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
> DataExam3.1.1 %>%
+  dplyr::group_by(SeedLot) %>%
+  dplyr::summarize(Mean=mean(Mean))
Error: Corrupt `grouped_df` using old (< 0.8.0) format.
i Strip off old grouping with `ungroup()`.
Backtrace:
     x
  1. \-DataExam3.1.1 %>% dplyr::group_by(SeedLot) %>% dplyr::summarize(Mean = mean(Mean))
  2.   +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3.   \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  4.     \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  5.       \-`_fseq`(`_lhs`)
  6.         \-magrittr::freduce(value, `_function_list`)
  7.           \-function_list[[i]](value)
  8.             +-dplyr::group_by(., SeedLot)
  9.             \-dplyr:::group_by.data.frame(., SeedLot)
 10.               \-dplyr::group_by_prepare(.data, ..., .add = .add)
 11.                 +-generics::setdiff(group_names, tbl_vars(out))
 12.                 +-generics:::setdiff.default(group_names, tbl_vars(out))
 13.                 | \-base::setdiff(x, y, ...)
 14.                 |   \-base::as.vector(y)
 15.                 \-dplyr::tbl_vars(out)
 16.                  
Execution halted