Update seq_gtf.R

Replaced for loop at line 77 with lapply (for(i in which(dftmp$strand == "-")) {these_seqs[i] = reverse_complement(these_seqs[i], library_type, strand_error_rate)})