回复 第5楼 的 superdesolator:试试这个:
<br />
genotype_format = function(gt)<br />
sapply(strsplit(gt, ''), function(s) paste0(sort(s), collapse = ''))</p>
<p>gt_1 = c('AG', 'GA', 'TT')<br />
gt_2 = c('AG', 'AG', 'TT')<br />
all(genotype_format(gt_1) == genotype_format(gt_2))<br />
</p>
回复 第6楼 的 superdesolator:重复发帖不好。