knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-"
)

deggust

Lifecycle: experimental

The aim for deggust R-package is to visualise designs constructed from the edibble R-package. The visualisation are ggplot graphics.

(WIP)

Installation

The development version from GitHub with:

# install.packages("devtools")
devtools::install_github("emitanaka/deggust")

Recipe experimental designs

You can see deggust::autoplot() used in various edibble designs at https://emitanaka.org/edibble-book/cookbook.html. Some samples are below.

Examples

library(edibble)
library(deggust)
fac <- takeout(menu_factorial(trt = c(3, 2)))
fac
autoplot(fac)
hyper_graeco <- takeout(menu_hyper_graeco(t = 6))
hyper_graeco
autoplot(hyper_graeco)

Automatic look into the design layout:

unit1 <- start_design(name = "One unit") %>%
    set_trts(trt = 4) %>%
    set_units(unit = 16) %>%
    allocate_trts(trt ~ unit) %>%
    randomise_trts() %>%
    serve_table()

autoplot(unit1)

Easy to replace the unit shape:

autoplot(unit1, shape = "box")
autoplot(unit1, shape = "triangle")
autoplot(unit1, shape = "hexagon",
         text = element_text(size = 6, 
                             color = "gray",
                             face = "bold")) 

Related work



emitanaka/deggust documentation built on Jan. 25, 2024, 11:06 p.m.