if (FALSE) {
# Select the sub-haplotype made up from the first two markers and
# print tables of TDT tests and haplotype realtaive risks
hap.use <- tdt.select(haps, markers=1:2)
rr <- tdt.rr(hap.use)
rr
}
Run the code above in your browser using DataLab