提供的解决方案有两种:
do.call(setdiff, strsplit(c(a, b), split = ""))
# 或者
Reduce(setdiff, strsplit(c(a, b), split...> do.call(setdiff, strsplit(c("ATA", "AAA"), split = ""))
[1] "T"
> Reduce(setdiff, strsplit(c("ATA",...> Reduce(setdiff, strsplit(c("AAA", "ATA"), split = ""))
character(0)
> do.call(setdiff, strsplit(c("...differ")
if(ignore.case){
a = toupper(a)
b = toupper(b)
}
split_seqs = strsplit