x0 <- BString("abbbaabbcbbaccacabbbccbcaabbabacca")
pals <- findPalindromes(x0, min.armlength=3, max.looplength=5)
pals
palindromeArmLength(pals)
palindromeLeftArm(pals)
palindromeRightArm(pals)
## Whitespaces matter:
x1 <- BString("Delia saw I was aileD")
palindromeArmLength(x1)
palindromeLeftArm(x1)
palindromeRightArm(x1)
x2 <- BString("was it a car or a cat I saw")
palindromeArmLength(x2)
palindromeLeftArm(x2)
palindromeRightArm(x2)
## Note that complemented palindromes (like palindromes) can be nested:
x3 <- DNAString("ACGTTNAACGTCCAAAATTTTCCACGTTNAACGT")
findComplementedPalindromes(x3, max.looplength=19)
## A real use case
library(BSgenome.Dmelanogaster.UCSC.dm3)
chrX <- Dmelanogaster$chrX
chrX_pals <- findComplementedPalindromes(chrX, min.armlength=40,
max.looplength=80)
chrX_pals
complementedPalindromeArmLength(chrX_pals) # 251 70 262
Run the code above in your browser using DataLab