### Example for Chlamydia trachomatis ####
### Rearrange the chromosome and compute the nucleotide skews ###
r.ori <- rearranged.oriloc(seq.fasta =
"ftp://pbil.univ-lyon1.fr/pub/seqinr/data/ct.fasta",
g2.coord = "ftp://pbil.univ-lyon1.fr/pub/seqinr/data/ct.coord")
### Extract the breakpoints for the rearranged nucleotide skews ###
breaks <- extract.breakpoints(r.ori, type = c("gcfw", "gcrev"),
nbreaks =c(2, 2), gridsize = 50, it.max = 100)
### Draw the rearranged nucleotide skews and place the position of the breakpoints ###
### on the graphics ###
draw.rearranged.oriloc(r.ori, breaks.gcfw = breaks$gcfw$breaks,
breaks.gcrev = breaks$gcrev$breaks)
Run the code above in your browser using DataLab