# Read a pedfile (which includes the variable names in the top line)
# and build haplotypes using the markers which appear third, second, and
# first in the pedfile.
filespec <- file.path(.path.package("tdthap"),"tests","test.ped")
ped <- read.table(filespec)
haps <- hap.transmit(ped, markers=c(3,2,1))Run the code above in your browser using DataLab