# PBBB design: 4 test treatments (1-4), 2 controls (5, 6); block size k' = 4
pbbb <- list(c(1,2,5,6), c(1,3,5,6), c(1,4,5,6),
c(2,3,5,6), c(2,4,5,6), c(3,4,5,6))
# NBIB on k' = 4 symbols from a one-factorisation of K4 (q = 2 sub-blocks/block)
nbib <- list(c(1,2), c(3,4), c(1,3), c(2,4), c(1,4), c(2,3))
d <- construct_method1(pbbb, nbib, q = 2, v2 = 2)
d
Run the code above in your browser using DataLab