powered by
Resolvable(n, mat)
V
B
R
K
BIB
## Not run: # m<-4 # X<-BIB(m) #BIBD from PG(4,2) # # n<-1 # mat<-X$BIB # Y<-Resolvable(n,mat) #Extracts the RBIBD # # # ## End(Not run)
Run the code above in your browser using DataLab