# the GDS file
(gds.fn <- seqExampleFileName("gds"))
f <- seqOpen(gds.fn)
seqSummary(f)
seqSetFilterChrom(f, is.num=TRUE)
seqSummary(f, "genotype", check="none")
seqSetFilterChrom(f, is.num=FALSE)
seqSummary(f, "genotype", check="none")
seqSetFilterChrom(f, 1:4)
seqSummary(f, "genotype", check="none")
table(seqGetData(f, "chromosome"))
# HLA region
seqSetFilterChrom(f, 6, from.bp=29719561, to.bp=32883508)
seqSummary(f, "genotype", check="none")
# close the GDS file
seqClose(f)
Run the code above in your browser using DataLab