# the file name of VCF
(vcf.fn <- seqExampleFileName("vcf"))
# or vcf.fn <- "C:/YourFolder/Your_VCF_File.vcf"
# convert
seqVCF2GDS(vcf.fn, "tmp.gds")
# prepare data for the SeqVarTools package
seqOptimize("tmp.gds", target="by.sample")
# list the structure of GDS variables
(f <- seqOpen("tmp.gds"))
# close
seqClose(f)
# delete the temporary file
unlink("tmp.gds")
Run the code above in your browser using DataLab