假设我有:
chromosome_1 <- c('0010000001010000')
chromosome_2 <- c('0100000001001010')
如何实现 第3-5步 ?
How can I implement step 3-5 ?
- NC1 =否. chromosome_1 中1的个
- NC2 =否. chromosome_2 中1的个
- M = min(NC1, NC2)
- Evaluate
- NC1 = no. of 1's in chromosome_1
- NC2 = no. of 1's in chromosome_2
- M = min(NC1, NC2)
从基因中随机选择NC个基因位置 与来自chromosome_1的等位基因"1"并形成索引为s1的集合 这样的职位.
Randomly select NC gene positions among the genes with allele "1" from chromosome_1 and form a set s1 of indices of such selected positions.
从基因中随机选择NC个基因位置 来自chromosome_2的等位基因"1"并形成索引为s2的一组 这样的职位.
Randomly select NC gene positions among the genes with allele "1" from chromosome_2 and form a set s2 of indices of such selected positions.
s = union(s1, s2) 假设 s = 2, 3, 10, 15
对于s
在以下位置交换染色体chromosome_1和chromosome_2的等位基因 基因位置i.
Exchange the alleles of chromosomes chromosome_1 and chromosome_2 at gene position i.
以下说明了结果:
真的很感谢您的帮助！
推荐答案可能不是最简单的解决方案，但它可行
Might not be the simplest solution, but it works
set.seed(12345) ## Step 1 a <- c(0,0,1,0,0,0,0,0,0,1,0,1,0,0,0,0) b <- c(0,1,0,0,0,0,0,0,0,1,0,0,1,0,1,0) m <- min(sum(a==1), sum(b==1)) ## Step 2 random_int <- sample(1:m, 1) ## Step 3 random_a <- sample(which(a == 1), random_int) random_b <- sample(which(b == 1), random_int) #all <- sort(union(random_a, random_b)) ## Step 4 ## for demo purpose (assume it as the random output) all <- c(2,3,10,15) temp_a <- a[all] temp_b <- b[all] ## Step 5 ##crossover b[all] <- temp_a a[all] <- temp_b ## Output > a [1] 0 1 0 0 0 0 0 0 0 1 0 1 0 0 1 0 > b [1] 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0
更多推荐
在两个向量之间交换元素(交叉)
发布评论