## ---------------------------------------------------------------------
## A. NO HEAD AND NO TAIL (THE DEFAULT)
## ---------------------------------------------------------------------
library(drosophila2probe)
dict0 <- DNAStringSet(drosophila2probe)
dict0 # The original dictionary.
length(dict0) # Hundreds of thousands of patterns.
unique(nchar(dict0)) # Patterns are 25-mers.
pdict0 <- PDict(dict0) # Store the original dictionary in
# a PDict object (preprocessing).
pdict0
class(pdict0)
length(pdict0) # Same as length(dict0).
tb.width(pdict0) # The width of the (implicit)
# Trusted Band.
sum(duplicated(pdict0))
table(patternFrequency(pdict0)) # 9 patterns are repeated 3 times.
pdict0[[1]]
pdict0[[5]]
## ---------------------------------------------------------------------
## B. NO HEAD AND A TAIL
## ---------------------------------------------------------------------
dict1 <- c("ACNG", "GT", "CGT", "AC")
pdict1 <- PDict(dict1, tb.end=2)
pdict1
class(pdict1)
length(pdict1)
width(pdict1)
head(pdict1)
tb(pdict1)
tb.width(pdict1)
width(tb(pdict1))
tail(pdict1)
pdict1[[3]]
Run the code above in your browser using DataLab