sch1 <- function(x) c(x^2, (x-2)^2)
## Estimate true front:
tf <- nsga2(sch1, 1, 2,
lower.bounds=0, upper.bounds=1,
popsize=1000, generations=20)
res <- nsga2(sch1, 1, 2,
lower.bounds=0, upper.bounds=1,
popsize=16, generations=c(2, 4, 6, 8, 10, 20, 50))
n <- length(res)
sapply(1:n, function(i) generationalDistance(res[[i]], tf))
sapply(1:n, function(i) generalizedSpread(res[[i]], tf))Run the code above in your browser using DataLab