### number of design points ###
n1 <- 30
n2 <- 15
### dimension of the design ###
d <- 2
### fix seed to reproduce the result ###
set.seed(1)
### generate the nested design ###
NX <- NestedX(c(n1, n2), d)
### visualize nested design ###
plot(NX[[1]], col="red", pch=1, xlab="x1", ylab="x2")
points(NX[[2]], col="blue", pch=4)
Run the code above in your browser using DataLab