Update fasta.r