Create finding_dna_motif.R