# NOT RUN {
### Example for Chlamydia trachomatis ####
### Rearrange the chromosome and compute the nucleotide skews ###
# }
# NOT RUN {
r.ori <- rearranged.oriloc(seq.fasta = system.file("sequences/ct.fasta.gz", package = "seqinr"),
g2.coord = system.file("sequences/ct.coord",package = "seqinr"))
# }
# NOT RUN {
### Extract the breakpoints for the rearranged nucleotide skews ###
# }
# NOT RUN {
breaks <- extract.breakpoints(r.ori,type = c("gcfw", "gcrev"),
nbreaks = c(2, 2), gridsize = 50, it.max = 100)
# }
# NOT RUN {
### Draw the rearranged nucleotide skews and ###
### place the position of the breakpoints on the graphics ###
# }
# NOT RUN {
draw.rearranged.oriloc(r.ori, breaks.gcfw = breaks$gcfw$breaks,
breaks.gcrev = breaks$gcrev$breaks)
# }
Run the code above in your browser using DataLab