# the GDS file
(gds.fn <- seqExampleFileName("gds"))
# display
f <- seqOpen(gds.fn)
# return a list
head(seqAlleleFreq(f, NULL, .progress=TRUE))
# return a numeric vector
summary(seqAlleleFreq(f, 0L, .progress=TRUE))
# return a numeric vector, AA is ancestral allele
AA <- toupper(seqGetData(f, "annotation/info/AA")$data)
summary(seqAlleleFreq(f, AA))
# allele counts
head(seqAlleleCount(f, .progress=TRUE))
# close the GDS file
seqClose(f)
Run the code above in your browser using DataLab