d <- 2
n <- 100
x <- matrix(rnorm(d*n), ncol=d)
xscale <- scaleDesign(x, uniformize=TRUE)
xunscale1 <- unscaleDesign(xscale$design, uniformize=TRUE, InitialDesign=x)
xunscale2 <- unscaleDesign(xscale$design,
min=c(min(x[,1]), min(x[,2])), max = c(max(x[,1]), max(x[,2])))
par(mfrow=c(2,2))
plot(x) ; plot(xscale$design)
plot(xunscale1$design) ; plot(xunscale2$design)
Run the code above in your browser using DataLab