Return complement sequences

Return complement sequences

dstr_complement(dstrobj)

dstr_complement_fast(dstrobj)

Arguments

dstrobj	dstr object

Examples

temp <- dstr_rand_seq(3, 10, "[atgcATGC]", seed = 1)
c(temp, compl = dstr_complement(temp))
#> class: bstr,character 
#> number of sequences: 6 
#> [1]      no name 1      : GGatCttccA                               10 
#> [2]      no name 2      : CCcTgTctTg                               10 
#> [3]      no name 3      : tCcCGTATgG                               10 
#> [4]   compl.no name 1   : CCtaGaaggT                               10 
#> [5]   compl.no name 2   : GGgAcAgaAc                               10 
#> [6]   compl.no name 3   : aGgGCATAcC                               10 

# Fast and memory efficient verstion of dstr_complement with
# case conversion
c(temp, compl = dstr_complement_fast(temp))
#> class: bstr,character 
#> number of sequences: 6 
#> [1]      no name 1      : GGatCttccA                               10 
#> [2]      no name 2      : CCcTgTctTg                               10 
#> [3]      no name 3      : tCcCGTATgG                               10 
#> [4]   compl.no name 1   : CCTAGAAGGT                               10 
#> [5]   compl.no name 2   : GGGACAGAAC                               10 
#> [6]   compl.no name 3   : AGGGCATACC                               10