Helper function which collapses a list of XStringSet
into a single XStringSet
.
collapse_XStringSetList(x)
XStringSet
##load example sequence data
data("mousePRDM9", package="repeatR")
myRepPattern<-"PY"
myRepLength<-84
mousePRDM9.random<-sample(mousePRDM9, 20)
mousePRDM9.random.split<-repeatR::splitRepByPattern(mousePRDM9.random,
myRepPattern, myRepLength)
repeatR::collapse_XStringSetList(mousePRDM9.random.split$cds)
#> DNAStringSet object of length 215:
#> width seq names
#> [1] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG KF462503.1_cds_AH...
#> [2] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG KF462503.1_cds_AH...
#> [3] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG KF462503.1_cds_AH...
#> [4] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG KF462503.1_cds_AH...
#> [5] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG KF462503.1_cds_AH...
#> ... ... ...
#> [211] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG AB843918.1_Mmc_HI...
#> [212] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG AB843918.1_Mmc_HI...
#> [213] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG AB843918.1_Mmc_HI...
#> [214] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACACACAGGGGAGAAG AB843918.1_Mmc_HI...
#> [215] 84 CCCTATGTTTGCAGGGAGTGTG...GAGGACACATACAAGAGAGAAG AB843918.1_Mmc_HI...