x <- 'GCTGCTGGCACGTAGTT'
strReverse <- function(x)
sapply(lapply(strsplit(x, NULL), rev), paste, collapse="")
strReverse(x)
#[1] "TTGATGCACGGTCGTCG"
x <- 'GCTGCTGGCACGTAGTT'
strReverse <- function(x)
sapply(lapply(strsplit(x, NULL), rev), paste, collapse="")
strReverse(x)
#[1] "TTGATGCACGGTCGTCG"