# NOT RUN {
# }
# 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)
seqz.hom <- seqz.data$zygosity.normal == 'hom'
seqz.het <- seqz.data[!seqz.hom, ]
# 1Mb windows, each window is overlapping with 1 other adjacent window:
# B-allele frequency
seqz.bafs <- windowValues(x = seqz.het$Bf, positions = seqz.het$position,
chromosomes = seqz.het$chromosome, window = 1e6,
weight = seqz.het$depth.tumor, start.coord = 1, overlap = 1)
# Repeat the same operation using windowBf
seqz.bafs <- windowBf(Af = seqz.het$Bf, Bf = seqz.het$Bf,
good.reads = seqz.het$good.reads, positions = seqz.het$position,
chromosomes = seqz.het$chromosome, window = 1e6,
start.coord = 1, overlap = 1, conf = 0.95)
# }
Run the code above in your browser using DataLab