# NOT RUN {
n <- 20
dimension <- 2
out <- lhsDesign(n, dimension)
out$design
## Change the dimnames, adjust to range (-10, 10) and round to 2 digits
xDRDN(out, letter = "T", dgts = 2, range = c(-10, 10))
# }
Run the code above in your browser using DataLab