## ----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)


## ----parts--------------------------------------------------------------------
fit <-
  stab_reg(
      .data = ge_data
    , .y    = Yield
    , .rep  = Rep
    , .gen  = Gen
    , .env  = Env
    )
txt <-
  stab_interpret(
      x             = fit
    , higher_better = TRUE
    , top           = 5
    )
names(txt)
txt$headline
txt$facts$widely_adapted


## ----methods------------------------------------------------------------------
am <-
  ammi(
      .data = ge_data
    , .y    = Yield
    , .rep  = Rep
    , .gen  = Gen
    , .env  = Env
    )
stab_interpret(
    x             = am
  , higher_better = TRUE
  , top           = 3
  )$headline
p <-
  gge_biplot(
      .data  = ge_data
    , .y     = Yield
    , .rep   = Rep
    , .gen   = Gen
    , .env   = Env
    , .which = "which-won-where"
    , .svp   = "symmetric"
    )
stab_interpret(
    x             = p
  , higher_better = TRUE
  , top           = 3
  )$headline
stab_interpret(
    x             = am
  , higher_better = TRUE
  , top           = 3
  )$guide


## ----lower--------------------------------------------------------------------
gm <-
  ge_means(
      .data = ge_data
    , .y    = Yield
    , .gen  = Gen
    , .env  = Env
    )
stab_interpret(
    x             = gm
  , higher_better = FALSE
  , top           = 3
  )$headline


## ----md-----------------------------------------------------------------------
cat(
    format(
        x     = stab_interpret(
            x             = am
          , higher_better = TRUE
          , top           = 3
          )
      , style = "markdown"
      )
  , sep = "\n"
  )