# The chain of designs of PG(3, 2):
X <- BIB(3) # BIBD (15, 7, 3)
Y <- Resolvable(1, X$BIB) # RBIBD (8, 14, 7, 4, 3)
Uniform(Y$RBIB)$UD # U(8, 2^7)
# The same chain over GF(3):
X3 <- BIB(2, p = 3) # BIBD (13, 4, 1)
Y3 <- Resolvable(1, X3$BIB) # RBIBD (9, 12, 4, 3, 1)
Uniform(Y3$RBIB)$UD # U(9, 3^4)
Run the code above in your browser using DataLab