# NOT RUN {
nObj <- 5
nIndividual <- 100
nVar <- 10
population <- InitializePopulationLHS(nIndividual,nVar,FALSE)
objective <- matrix(,nrow=nObj,ncol=nIndividual)
for(individual in 1:nIndividual){
objective[,individual] <- WFG4(population[,individual],nObj)
}
AdaptiveNormalization(objective)
# }
Run the code above in your browser using DataLab