data(miscEx)
if (FALSE) {
# briefly look at genotype data
sum(is.na(gdatF8))
gdatF8[1:5,1:5]
gdtmp<- gdatF8
gdtmp<- replace(gdtmp,is.na(gdtmp),0)
# In case an individual is not imputable, then
# one needs to assign genotypes manually
prDat<- genoProb(gdat=gdtmp, gmap=gmapF8, gr=8, method="Haldane", msg=TRUE)
prDat$pr[1:5,,1:5]
}
Run the code above in your browser using DataLab