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


## ----hayman-------------------------------------------------------------------
h <-
  Hayman(
      y      = Yield
    , Rep    = Rep
    , Cross1 = Cross1
    , Cross2 = Cross2
    , data   = HaymanData
    )
knitr::kable(x = h$ANOVA, digits = 3)


## ----arrays-------------------------------------------------------------------
knitr::kable(x = h$Wr.Vr.Table[, c("Wr", "Vr", "Wr.Minus.Vr", "Wr.Plus.Vr", "Yr")], digits = 2)


## ----graph, fig.height = 5----------------------------------------------------
plot(h)


## ----tests--------------------------------------------------------------------
knitr::kable(x = h$Tests, digits = 4)


## ----components---------------------------------------------------------------
knitr::kable(x = h$Components.of.Variation, digits = 3)
knitr::kable(x = h$Other.Parameters, digits = 3)