## The Standard Genetic Code:
GENETIC_CODE
GENETIC_CODE[["ATG"]]  # codon ATG is translated into M (Methionine)
sort(table(GENETIC_CODE))  # the same amino acid can be encoded by 1
                           # to 6 different codons
RNA_GENETIC_CODE
all(GENETIC_CODE == RNA_GENETIC_CODE)  # TRUE
## All the known genetic codes:
GENETIC_CODE_TABLE[1:3 , ]
getGeneticCode("SGC0")  # The Standard Genetic Code, again
stopifnot(identical(getGeneticCode("SGC0"), GENETIC_CODE))
getGeneticCode("SGC1")  # Vertebrate Mitochondrial
getGeneticCode("ascidian", full.search=TRUE)  # Ascidian Mitochondrial
## Differences between a non-standard code and the Standard Code:
idx <- which(getGeneticCode("SGC1") != GENETIC_CODE)
rbind(SGC1=getGeneticCode("SGC1")[idx], Standard=GENETIC_CODE[idx])
Run the code above in your browser using DataLab