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