### Name: complementSeq
### Title: Complementary sequence.
### Aliases: complementSeq
### Keywords: manip

### ** Examples

 seq <- c("AAACT", "GGGTT")
 complementSeq(seq)

 seq <- c("CGACTGAGACCAAGACCTACAACAG", "CCCGCATCATCTTTCCTGTGCTCTT")
 complementSeq(seq, start=13, stop=13)



