# NOT RUN {
data.file <- system.file("extdata", "example.seqz.txt.gz",
package = "sequenza")
seqz.data <- read.seqz(data.file)
# 1Mb windows, each window is overlapping with 1 other adjacent
# window: depth ratio
seqz.ratio <- windowValues(x = seqz.data$depth.ratio,
positions = seqz.data$position, chromosomes = seqz.data$chromosome,
window = 1e6, weight = seqz.data$depth.normal, start.coord = 1,
overlap = 1)
plotWindows(seqz.ratio[[1]], log2.plot = FALSE, ylab = "Depth ratio",
xlab = "Position (bases)", main = names(seqz.ratio)[1], las = 1,
n.min = 1, ylim = c(0, 2.5))
plotWindows(seqz.ratio[[17]], log2.plot = FALSE, ylab = "Depth ratio",
xlab = "Position (bases)", main = names(seqz.ratio)[1], las = 1,
n.min = 1, ylim = c(0, 2.5))
# }
Run the code above in your browser using DataLab