d <- 2
n <- 100
x <- matrix(rnorm(d*n), ncol=d)
xscale1 <- scaleDesign(x, uniformize=FALSE)
xscale2 <- scaleDesign(x, uniformize=TRUE)
par(mfrow=c(1,2))
plot(xscale1$design) ; plot(xscale2$design)
Run the code above in your browser using DataLab