DNA Reverse Complement: This function takes a string-type variable containing DNA and it returns its reverse complement

DNAReverseComplement.R

# Load a library necessary to run this code
library(stringi)

# Define the reverse complement function
rev.comp <- function(DNASeq)
return(stri_reverse(chartr("acgtACGT", "tgcaTGCA", DNASeq)))

# Run the code on the dataframe called DF
DF$Seq <- ifelse (DF$Strand == c("-"), rev.comp(DF$Seq), DF$Seq)
library(plyr)
CombinedDF <- join(MainDF, LookUpDF, by = "Column")

heead(CombinedDF)