R/revComp.R

In FSAtools: Fragment Analysis and Capillary Sequencing Tool Kit

# Revserse complement a vector of character strings (ATCG)
revComp <- function(seq) {
	out <- character(length(seq))
	seq <- strsplit(seq, split="")
	dic <- c("A"="T", "C"="G", "G"="C", "T"="A")
	for(i in 1:length(seq)) out[i] <- paste(dic[ rev(seq[[i]]) ], collapse="")
	return(out)
}