if (FALSE) {
# Select the sub-haplotype made up from the first two markers and print
# tables of frequencies of transmitted and untransmitted haplotypes
hap.use <- tdt.select(haps, markers=1:2)
table(hap.use$trans)
table(hap.use$untrans)
}
Run the code above in your browser using DataLab