# NOT RUN {
genome_file <- system.file("extdata", "genome.fasta", package = "AnaCoDa")
## reading genome
genome <- initializeGenomeObject(file = genome_file)
countsForA <- getCodonCountsForAA("A", genome)
counts <- lapply(X = c("A", "C"), FUN = getCodonCountsForAA, genome = genome)
# }
Run the code above in your browser using DataCamp Workspace