seq <- "TGGATTGTATAATCAGCATGGATTTGGAAC"
patterns <- DNAStringSet(c("TGG", "TGGA", "TGGATA", "TTGGAAC", ""))
isPatternUnique(seq, patterns)
isPatternUnique(seq)
isPatternUnique(patterns)
Run the code above in your browser using DataLab