---
title: "Two-Factors Design: Augmented Design in RCBD"
description: > 
  Augmented Design in RCBD
vignette: >
  %\VignetteIndexEntry{DoE-2_AUG}
  %\VignetteEncoding{UTF-8}
  %\VignetteEngine{quarto::html}
knitr:
  opts_chunk: 
    collapse: true
    comment: '#>'
    echo: false
    warning: false
    message: false
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
source("https://raw.githubusercontent.com/Flavjack/inti/master/pkgdown/favicon/docs.r")
```

Planning an experiment follows a reproducible routine:

1. **Load required libraries:** Load `inti`, `knitr`, and `dplyr` packages.
1. **Define factor levels:** Set up lists with genotypes, treatments, and management factors.
1. **Dispatch design generator:** Choose between CRD, RCBD, Split-plot, or Augmented designs.
1. **Plot the field sketch:** Verify spatial layouts and serpentine/zigzag sequences.
1. **Label design:** Design the experimental labels to facilitate the data collection.
5. **Export to Field Book app:** Generate field-ready sheets with trait parameters.

```{r, echo=TRUE}
# Install packages and dependencies

library(inti)
library(dplyr)
library(huito)
```

# Designs with Two Factors

When evaluating two or more factors, four designs become available: **CRD**, **RCBD**, **Split-plot RCBD**, and **Augmented**.

# Augmented Design in RCBD (Augmented RCBD)

The Augmented Design is recommended for screening large collections of entries (e.g., accessions or candidate clones) when seed or space is limited, repeating check varieties in each block while evaluating new entries only once.

```{r, echo=TRUE}
# 1. Define checks (commercial controls) and new accessions
checks <- c("INIA_415", "INIA_420")
entries <- paste0("Geno_", 1:50)

# 2. Generate Augmented layout: 18 entries + (2 checks x 3 blocks) = 24 plots
aug_exp <- design_augmented(
  checks = checks,
  entries = entries,
  blocks = 5,
  zigzag = FALSE,
  seed = 2026
)

# Fieldbook preview
aug_exp$fieldbook %>% 
  head(10) %>% 
  knitr::kable(caption = "Augmented RCBD Fieldbook preview")

# Field layout visualization
tarpuy_plotdesign(
  data = aug_exp,
  factor = "type",          
  fill = c("plots", "entry")
)
```

# Label 

The experimental field book generated by the design is used as the input data for label creation. Each row represents an experimental unit, allowing the automatic generation of individualized labels.

```{r, echo=TRUE}
# Experimental fieldbook
fb <- aug_exp$fieldbook
```

# Customize the label layout

The label layout can be customized by combining text, images and QR codes. Each layer can use values from the experimental field book, allowing automatic generation of labels for every experimental plot.

Load package and import fonts.

```{r, echo=TRUE}
font <- c("Permanent Marker", "Tillana", "Courgette")

huito_fonts(font)
```

> You can find more fonts in <https://fonts.google.com/>

# Label design

```{r}
#| echo: true

label <- fb %>%
  label_layout(
    size = c(5.2, 10)
    ,
    border_color = "#5C0000"
    ,
    border_width = 1.5
  ) %>%
  include_image(
    value = "https://inkaverse.com/img/inkaverse.png"
    ,
    size = c(1.3, 1.5)
    ,
    position = c(0.8, 9.1)
  )  %>%
  include_text(
    value = "plots"
    ,
    position = c(4.2, 9.1)
    ,
    size = 20
    ,
    color = "black"
    ,
    fontface = "bold"
    ,
    font = font[1]
  )  %>%
  include_image(value = "https://huito.inkaverse.com/img/scale.pdf"
                ,
                size = c(5, 1)
                ,
                position = c(2.6, 7.7)) %>%
  include_barcode(value = "qrcode"
                  ,
                  size = c(5, 5)
                  ,
                  position = c(2.6, 4.7)) %>%
  include_text(
    value = "checks"
    ,
    position = c(2.6, 2)
    ,
    size = 12
    ,
    prefix = "Checks: "
    ,
    color = "blue"
    ,
    font = font[2]
    , 
    fontface = "bold"
  )  %>%
    include_text(
    value = "entry"
    ,
    position = c(2.6, 1.5)
    ,
    size = 12
    ,
    prefix = "Entry: "
    ,
    color = "red"
    ,
    font = font[2]
    , 
    fontface = "bold"
  )  %>%
  include_image(value = "https://huito.inkaverse.com/img/scale.pdf"
                ,
                size = c(5, 1)
                ,
                position = c(2.6, 0.6)) 
```

## Label preview

The preview mode `label_print(mode = "preview")` generate a example of the label design from a random row of the data set.

```{r}
label %>% 
  label_print(mode = "preview")
```

## Generate the complete labels

If you want generate the complete labels list, change: `label_print(mode = "complete")`.

```{r echo = TRUE}
#| eval: false

label %>% 
  label_print(mode = "complete"
              , filename = "vertical-aug")
```

<!-- <embed src="vertical-aug.pdf" height="600" width="100%" alt="pdf" pluginspage="http://www.adobe.com/products/acrobat/readstep2.html"> -->