X <- BIB(4) # BIBD (31, 15, 7) from PG(4, 2)
X2 <- Gen(1, X$BIB) # second generation: BIBD (15, 7, 3)
X2$V; X2$K
Y <- BIB(3, p = 3) # BIBD (40, 13, 4) from PG(3, 3)
Y2 <- Gen(1, Y$BIB) # second generation: BIBD (13, 4, 1)
Y2$V; Y2$K
Run the code above in your browser using DataLab