Create genetic algorithm.R