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


## ----bench--------------------------------------------------------------------
b <- data.table::fread(file = system.file("extdata", "bench.csv", package = "DiallelAnalysisR"))
w <- data.table::dcast(data = b, formula = case ~ version, value.var = "median_ms")
data.table::setnames(x = w, old = c("0.6.0", "1.0.0"), new = c("ms_0.6.0", "ms_1.0.0"))
w[, speedup := round(x = ms_0.6.0 / ms_1.0.0, digits = 1)]
knitr::kable(x = w, digits = 2)