R script to translate dna to aa