library(agricolae)
level<- 2; factors<-3 ; blocks <- 4
fact.nk(level,factors,blocks)
# factorial 2^5 in 4 blocks
fact.nk(2,5,4)
# factorial two factors in 3 levels for 4 blocks
fact.nk(3,2,4,seed=100,kinds="Mersenne-Twister")
# factorial 4x4 = 4^2 in 3 blocks
fact.nk(4,2,3)
Run the code above in your browser using DataLab