# NOT RUN {
#ped<-read.table("MLIP.ped",head=1,stringsAsFactors=FALSE)
#map<-read.table("MLIP.map",head=1,stringsAsFactors=FALSE)
#test<-rhapPDT(ped, map, trace=TRUE)
#test
#$hPDT_v0
#[1] 0.4231359
#$hPDT_v1
#[1] 0.1481145
#$rvPDT_v0
#[1] 0.03237073
#$rvPDT_v1
#[1] 0.162997
# }
Run the code above in your browser using DataLab