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