# example with 4 SNPs - the user gives the probabilities
MAFs <- c(0.1, 0.07, 0.2, 0.4)
dscore(MAFs)
# example with 4 SNPs - using setupSNP
data(SNPs)
myDat<-setupSNP(SNPs,6:10,sep="")
dscore(myDat)
Run the code above in your browser using DataLab