相補配列

こんなことまでRでやる必要はないのかも知れませんが、とにかく、Rで済まそうということで。

> source("http://www.bioconductor.org/biocLite.R")
> biocLite("GeneR")
> library(GeneR)
> s <- "AAGCCNNNNNNNGGCCGG"
> strComp(s)
[1] "CCGGCCNNNNNNNGGCTT"