A <- DoE.base::L25.5.6 ## levels 1:5 for each factor
phi_p(A)
mindist(A) # 5
A2 <- phi_optimize(A)
phi_p(A2) ## improved
mindist(A2) ## 6, improved
A <- DoE.base::L16.4.5 ## levels 1:4 for each factor
phi_p(A)
phi_p(A, dmethod="euclidean")
A2 <- A
A2[,4] <- c(2,4,3,1)[A[,4]]
phi_p(A2)
if (FALSE) {
## A2 has fewer minimal distances
par(mfrow=c(2,1))
hist(dist(A), xlim=c(2,6), ylim=c(0,40))
hist(dist(A2), xlim=c(2,6), ylim=c(0,40))
}
Run the code above in your browser using DataLab