data(miscEx)
# 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, step=Inf,
gr=8, method="Haldane", verbose=TRUE)
prDat$pr[1:5,,1:5]Run the code above in your browser using DataLab