if (FALSE) # need internet connection
#
# Example with Chlamydia trachomatis complete genome
#
ori <- oriloc()
draw.oriloc(ori)
#
# The same, using more options from function draw.oriloc()
#
draw.oriloc(ori,
main = expression(italic(Chlamydia~~trachomatis)~~complete~~genome),
ta.mtext = "TA skew", ta.col = "red",
cg.mtext = "CG skew", cg.col = "blue",
cds.mtext = "CDS skew", cds.col = "seagreen",
add.grid = FALSE)
Run the code above in your browser using DataLab