dimension <- 2
n <- 10
X <- lhsDesign(n, dimension)$design
## Optimize the LHS with C2 criterion
Xopt <- discrepSA_LHS(X, T0=10, c=0.99, it=2000, criterion="C2")
plot(Xopt$design)
plot(Xopt$critValues, type="l")
## Optimize the LHS with C2 criterion and GEOM_MORRIS profile
if (FALSE) {
Xopt2 <- discrepSA_LHS(X, T0=10, c=0.99, it=1000, criterion="C2", profile="GEOM_MORRIS")
plot(Xopt2$design)
}
Run the code above in your browser using DataLab