# NOT RUN {
# }
# NOT RUN {
data_file <- system.file("extdata", "example.seqz.txt.gz", package = "sequenza")
## read chromosome 1 from an seqz file.
seqz_data <- read.seqz(data_file, chr_name = 1)
## Fast access to chromosome X using the file metrics
gc.stats <- gc.sample.stats(data_file)
chrX <- gc.stats$file.metrics[gc.stats$file.metrics$chr == "X", ]
seqz.data <- read.seqz(data_file, n_lines = c(chrX$start, chrX$end))
## Compare the running time of the two different methods.
system.time(seqz.data <- read.seqz(data_file, n_lines = c(chrX$start, chrX$end)))
system.time(seqz.data <- read.seqz(data_file, chr_name = "X"))
# }
Run the code above in your browser using DataLab