disc <- duplicateDiscordanceProbability(npair=10, error.rate=c(1e-6, 1e-4))
#probability of observing >0 discordant genotypes given an error rate 1e-6
disc[1,1]
#probability of observing >1 discordant genotypes given an error rate 1e-4
disc[2,2]
Run the code above in your browser using DataLab