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 ──
✔ ggplot2 3.3.1     ✔ purrr   0.3.4
✔ tibble  3.0.1     ✔ dplyr   1.0.0
✔ tidyr   1.1.0     ✔ stringr 1.4.0
✔ readr   1.3.1     ✔ forcats 0.5.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ 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.
ℹ Strip off old grouping with `ungroup()`.
Backtrace:
     █
  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)
 1
Execution halted