# NOT RUN {
data(normal)
# generate a design
X <- multiDimLHS(N=5,qsd$lower,qsd$upper,type="matrix")
# augment design X
rbind(X,multiDimLHS(N=1,qsd$lower,qsd$upper,X=X,
method="augmentLHS",type="matrix"))
# }
Run the code above in your browser using DataLab