# NOT RUN {
#create an OA(9,2,3,2)
OA=matrix(c(rep(1:3,each=3),rep(1:3,times=3)),ncol=2,nrow=9,byrow = FALSE);OA
#Transfer the "OA" above into a LHD according to Tang (1993)
tryOA=OA2LHD(OA=OA,9,2,3,2)
OA;tryOA
# }
Run the code above in your browser using DataLab