genet-code.r

codons = c(
    'ATA', 'ATC', 'ATT', 'ATG',
    'ACA', 'ACC', 'ACG', 'ACT',
    'AAC', 'AAT', 'AAA', 'AAG',
    'AGC', 'AGT', 'AGA', 'AGG',
    'CTA', 'CTC', 'CTG', 'CTT',
    'CCA', 'CCC', 'CCG', 'CCT',
    'CAC', 'CAT', 'CAA', 'CAG',
    'CGA', 'CGC', 'CGG', 'CGT',
    'GTA', 'GTC', 'GTG', 'GTT',
    'GCA', 'GCC', 'GCG', 'GCT',
    'GAC', 'GAT', 'GAA', 'GAG',
    'GGA', 'GGC', 'GGG', 'GGT',
    'TCA', 'TCC', 'TCG', 'TCT',
    'TTC', 'TTT', 'TTA', 'TTG',
    'TAC', 'TAT', 'TAA', 'TAG',
    'TGC', 'TGT', 'TGA', 'TGG')

aa = c(
    'I', 'I', 'I', 'M',
    'T', 'T', 'T', 'T',
    'N', 'N', 'K', 'K',
    'S', 'S', 'R', 'R',
    'L', 'L', 'L', 'L',
    'P', 'P', 'P', 'P',
    'H', 'H', 'Q', 'Q',
    'R', 'R', 'R', 'R',
    'V', 'V', 'V', 'V',
    'A', 'A', 'A', 'A',
    'D', 'D', 'E', 'E',
    'G', 'G', 'G', 'G',
    'S', 'S', 'S', 'S',
    'F', 'F', 'L', 'L',
    'Y', 'Y', '*', '*',
    'C', 'C', '*', 'W')

names(aa)=codons