data(hire.questionaire)
#default
mc.good.designs(hire.questionaire$design)
#look for 7 card designs, with the cross correlation tolerance increased to .3
#mc.good.designs(hire.questionaire$design,7,tol=.3)
Run the code above in your browser using DataLab