## Create two random parents with an index and random binary values
Parents <- data.frame(
ID = 1:20,
bin = sample(c(0, 1), 20, replace = TRUE, prob = c(70, 30)),
bin.1 = sample(c(0, 1), 20, replace = TRUE, prob = c(30, 70))
)
## Create random Fitness values for both individuals
FitParents <- data.frame(ID = 1, Fitness = 1000, Fitness.1 = 20)
## Assign both values to a list
CrossSampl <- list(Parents, FitParents)
## Cross their data at equal locations with 2 crossover parts
crossover(CrossSampl, u = 1.1, uplimit = 300, crossPart = "EQU")
## with 3 crossover parts and equal locations
crossover(CrossSampl, u = 2.5, uplimit = 300, crossPart = "EQU")
## or with random locations and 5 crossover parts
crossover(CrossSampl, u = 4.9, uplimit = 300, crossPart = "RAN")
Run the code above in your browser using DataLab