# open an example dataset (HapMap)
genofile <- snpgdsOpen(snpgdsExampleFileName())
# to get a snp list object
snplist1 <- snpgdsSNPList(genofile)
snplist2 <- snpgdsSNPList(genofile)
# a common snp list
L <- snpgdsSNPListStrand(snplist1, snplist2)
table(L, exclude=NULL)
# close the file
snpgdsClose(genofile)
Run the code above in your browser using DataLab