# NOT RUN {
# }
# NOT RUN {
data.file <- system.file("extdata", "example.seqz.txt.gz", package = "sequenza")
seqz.data <- read.seqz(data.file)
## Normalize coverage by GC-content
gc.stats <- gc.norm(x = seqz.data$depth.ratio,
gc = seqz.data$GC.percent)
gc.vect <- setNames(gc.stats$raw.mean, gc.stats$gc.values)
seqz.data$adjusted.ratio <- seqz.data$depth.ratio /
gc.vect[as.character(seqz.data$GC.percent)]
## Extract mutations
mut.tab <- mutation.table(seqz.data, mufreq.treshold = 0.15,
min.reads = 40, max.mut.types = 1,
min.type.freq = 0.9)
mut.tab <- na.exclude(mut.tab)
# }
Run the code above in your browser using DataLab