design_equal: Test if two designs are equivalent

In emitanaka/tasted: A testing framework for the table of designed experiments

Test if two designs are equivalent

Description

Given two data frames that contain the design of experiment output, test to see if the design is equivalent.

Usage

design_equal(x, y, ...)

Arguments

x, y	A data frame with the design of experiment table
...	A series of name-value pair specifying which columns in x and y are equivalent. The name should be the name of the column in x and value should be the name of column in y.

Examples

## Not run: 
library(edibble)
des1 <- design() %>%
  set_units(plot = 30) %>%
  set_trts(trt = 5) %>%
  allot_table(trt ~ plot)

des2 <- design() %>%
  set_units(subject = 30) %>%
  set_trts(vaccine = 5) %>%
  allot_table(vaccine ~ subject)

design_equal(des1, des2,
             plot = subject, trt = vaccine)

## End(Not run)

emitanaka/tasted documentation built on March 28, 2022, 12:04 a.m.