# My take on CAI
library(stringr)
library(genomes)
# Using functions pulled from CAI_alaSharp, we pull two tables.
ftp <- readNCBIftp('Geobacter')
ftpURL <- urlParserftoTONCBI(ftp$ftp[7])
anngenes <- getAnnotation(ftpURL)
DNA <- getDNA(ftpURL)
CAIs <- getCAIs(DNA,anngenes)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.