## 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