# NOT RUN {
# }
# NOT RUN {
data.file <- system.file("extdata", "example.seqz.txt.gz", package = "sequenza")
# read all the chromosomes:
gc_info <- gc.sample.stats(data.file)
# mean values of depth coverage vs GC content
mean_gc(gc_info$normal)
# plot the information for the tumor and normal samples
par(mfrow=c(1, 2))
gc.summary.plot(gc_info$normal, main = "Normal GC stats")
gc.summary.plot(gc_info$tumor, main = "Tumor GC stats")
# }
Run the code above in your browser using DataLab