X <- BIB(4) # BIBD (31, 15, 7) from PG(4, 2)
Y <- Resolvable(1, X$BIB) # RBIBD (16, 30, 15, 8, 7)
Y$V; Y$B; Y$K
Z <- BIB(2, p = 3) # BIBD (13, 4, 1) from PG(2, 3)
W <- Resolvable(1, Z$BIB) # RBIBD (9, 12, 4, 3, 1): AG(2, 3)
W$RBIB
Run the code above in your browser using DataLab