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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: bayes_ammi
> ### Title: Bayesian Estimation of Genotype by Environment Interaction Model
> ### Aliases: bayes_ammi bayes_ammi.default
> 
> ### ** Examples
> 
> 
> data(cultivo2008)
> fm1 <-
+    ge_ammi(
+       .data  = cultivo2008
+      , .y    = y
+      , .gen  = entry
+      , .env  = site
+      , .rep  = rep
+      )
> 
> r0 <- fm1$g
> c0 <- fm1$e
> n0 <- fm1$Rep
> k0 <- fm1$k
> 
> mu0      <- fm1$mu
> sigma20  <- fm1$sigma2
> tau0     <- fm1$tau
> tao0     <- fm1$tao
> delta0   <- fm1$delta
> lambdas0 <- fm1$lambdas
> alphas0  <- fm1$alphas
> gammas0  <- fm1$gammas
> 
> ge_means0 <- fm1$ge_means$ge_means
> 
> data(cultivo2008)
> 
> fm2 <-
+  ge_ammi(
+    .data = cultivo2009
+    , .y    = y
+    , .gen  = entry
+    , .env  = site
+    , .rep  = rep
+   )
> 
> k        <- fm2$k
> alphasa  <- fm2$alphas
> gammasa  <- fm2$gammas
> 
> alphas1  <- tibble::as_tibble(fm2$alphas)
Warning: `as_tibble.matrix()` requires a matrix with column names or a `.name_repair` argument. Using compatibility `.name_repair`.
This warning is displayed once per session.
> gammas1  <- tibble::as_tibble(fm2$gammas)
> 
> 
> 
> # Biplots OLS
> library(ggplot2)
>     BiplotOLS1 <-
+       ggplot(data = alphas1, mapping = aes(x = V1, y = V2)) +
+       geom_point() +
+       geom_hline(yintercept = 0) +
+       geom_vline(xintercept = 0) +
+       geom_text(aes(label = 1:nrow(alphas1)), vjust = "inward", hjust = "inward") +
+       scale_x_continuous(
+                limits = c(-max(abs(c(range(alphas1[, 1:2]))))
+                          , max(abs(c(range(alphas1[, 1:2])))))) +
+       scale_y_continuous(
+                limits = c(-max(abs(c(range(alphas1[, 1:2]))))
+                          , max(abs(c(range(alphas1[, 1:2])))))) +
+       labs(title = "OLS", x = expression(u[1]), y = expression(u[2])) +
+       theme_bw() +
+       theme(plot.title = element_text(hjust = 0.5))
>       print(BiplotOLS1)
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: print ... lapply -> FUN -> push.vp.viewport -> grid.Call.graphics
Execution halted