R/rev.comp.R

In muhligs/Regmex: Motif discovery in ranked lists of sequences

Defines functions rev.comp

Documented in rev.comp

rev.comp <-
	function(seqs){
res <- sapply(seqs,function(x)paste(chartr("CGAT","GCTA",rev(unlist(strsplit(x,"")))),collapse=""))
		names(res) <- NULL
		return(res)
	}