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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Exam3.1
> ### Title: Data for Example 3.1 from Experimental Design & Analysis for
> ###   Tree Improvement
> ### Aliases: Exam3.1
> 
> ### ** Examples
> 
> data(DataExam3.1)
> library(tidyverse)
── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 3.1.0       ✔ purrr   0.3.2  
✔ tibble  2.1.1       ✔ dplyr   0.8.0.1
✔ tidyr   0.8.3       ✔ stringr 1.4.0  
✔ readr   1.3.1       ✔ forcats 0.4.0  
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
> 
> fmtab3.3     <- lm(
+    formula     = Ht~Repl*SeedLot
+  , data        = DataExam3.1
+  #, subset
+  #, weights
+  #, na.action
+  , method      = "qr"
+  , model       = TRUE
+  , x           = FALSE
+  , y           = FALSE
+  , qr          = TRUE
+  , singular.ok = TRUE
+  , contrasts   = NULL
+   )
>  anova(fmtab3.3)
Analysis of Variance Table

Response: Ht
             Df Sum Sq Mean Sq F value    Pr(>F)    
Repl          1  20.30  20.301  8.0921  0.005825 ** 
SeedLot       4 505.87 126.467 50.4100 < 2.2e-16 ***
Repl:SeedLot  4  23.75   5.936  2.3663  0.061045 .  
Residuals    70 175.61   2.509                      
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> DataExam3.1 %>%
+  dplyr::group_by(SeedLot) %>%
+  dplyr::summarize(Mean=mean(Ht),SD=sd(Ht))
# A tibble: 5 x 3
  SeedLot       Mean    SD
  <fct>        <dbl> <dbl>
1 Acacia       10.3  2.71 
2 Angophora     7.1  2.16 
3 Casuarina     5.51 1.08 
4 Melaleuca     4.94 0.869
5 Petalostigma  2.73 0.849
>  RESFIT <- data.frame(residualvalue=residuals(fmtab3.3),fittedvalue=fitted.values(fmtab3.3))
> library(ggplot2)
> ggplot(RESFIT,aes(x=fittedvalue,y=residualvalue))+
+  geom_point(size=2)+
+  labs(x="Residual vs Fitted Values",y="")+
+  theme_bw()
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... lapply -> FUN -> push.vp.viewport -> grid.Call.graphics
Execution halted