#create a toy LHD with 5 rows and 3 columns
toy=rLHD(n=5,k=3);toy
#Calculate the phi_p criterion of toy with default setting
phi_p(X=toy)
#Calculate the phi_p criterion of toy with p=50 and q=2
phi_p(X=toy,p=50,q=2)
Run the code above in your browser using DataLab