library(GWASdata)
file <- system.file("extdata", "illumina_geno.gds", package="GWASdata")
gds <- GdsGenotypeReader(file)
data(illuminaScanADF)
genoData <- GenotypeData(gds, scanAnnot=illuminaScanADF)
disc <- duplicateDiscordance(genoData, subjName.col="subjectID")
# minor allele discordance
afreq <- alleleFrequency(genoData)
minor.disc <- duplicateDiscordance(genoData, subjName.col="subjectID",
minor.allele.only=TRUE, allele.freq=afreq[,"all"])
close(genoData)
Run the code above in your browser using DataLab