(gds.fn <- seqExampleFileName("gds"))
# or gds.fn <- "C:/YourFolder/Your_GDS_File.gds"
seqSummary(gds.fn)
seqSummary(gds.fn, "genotype")
######################################################
# display
f <- seqOpen(gds.fn)
# get 'sample.id
samp.id <- seqGetData(f, "sample.id")
# get 'variant.id'
variant.id <- seqGetData(f, "variant.id")
# set sample and variant filters
seqSetFilter(f, sample.id=samp.id[c(2,4,6,8,10)])
set.seed(100)
seqSetFilter(f, variant.id=sample(variant.id, 10))
seqSummary(f, "genotype")
# close a GDS file
seqClose(f)
Run the code above in your browser using DataLab