# NOT RUN {
#30-point miniMaxPro design on the hypercube [0,1]^6
D <- minimax(N=30,p=6)
D <- miniMaxPro(N=30,p=6,mMdes=D)
mMdist(D$minimax)$dist
mMdist(D$miniMaxPro)$dist #slightly higher fill distance
pairs(D$minimax,xlim=c(0,1),ylim=c(0,1),pch=16)
pairs(D$miniMaxPro,xlim=c(0,1),ylim=c(0,1),pch=16) #... but better projections
# }
Run the code above in your browser using DataLab