Return the design table associated with the test set from an object.
Examples
ds <- gen_sample_dataset(D = c(4, 4, 4), nobs = 10, external_test = TRUE)
test_design(ds$design)
#> # A tibble: 10 × 2
#> Ytest .rownum
#> <fct> <int>
#> 1 b 1
#> 2 c 2
#> 3 a 3
#> 4 e 4
#> 5 e 5
#> 6 b 6
#> 7 a 7
#> 8 c 8
#> 9 d 9
#> 10 d 10