# NOT RUN {
# }
# NOT RUN {
data.file <- system.file("data", "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