Nothing
library(CytoGPS)
try( x <- Chromosome(0) ) # fail?
try( x <- Chromosome("Z") ) # fail
x <- Chromosome(11)
image(x)
image(x, horizontal = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.