## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = FALSE, comment = "", fig.width = 7, fig.height = 4.6,
                      dev = if (knitr::is_latex_output()) "cairo_pdf" else
                        if (requireNamespace("svglite", quietly = TRUE)) "svglite" else "png")
if (requireNamespace("stability", quietly = TRUE)) library(stability) else
  pkgload::load_all(export_all = FALSE, helpers = FALSE, quiet = TRUE)


## ----columns------------------------------------------------------------------
d <- ge_data
names(d)[names(d) == "Yield"] <- "GrainYield"
k <-
  stab_kang(
      .data = d
    , .y    = "GrainYield"
    , .rep  = Rep
    , .gen  = Gen
    , .env  = Env
    )
head(x = k$Kang, n = 3)


## ----missing------------------------------------------------------------------
d <- subset(x = ge_data, subset = !(Gen == "PR115" & Env == "FSD"))
tryCatch(
    expr  = add_anova(
        .data = d
      , .y    = Yield
      , .rep  = Rep
      , .gen  = Gen
      , .env  = Env
      )
  , error = function(e) conditionMessage(e)
  )