haplo = rbind(c(1,1,0,1,0),
c(1,1,0,1,0),
c(0,1,1,0,0),
c(0,1,1,0,0))
colnames(haplo) = letters[1:5]
genMap = data.frame(markerName=letters[1:5],
chromosome=c(1,1,1,2,2),
position=c(0,0.5,1,0.15,0.4))
ped = data.frame(id=c("a","b"),
mother=c(0,0),
father=c(0,0))
founderPop = importHaplo(haplo=haplo,
genMap=genMap,
ploidy=2L,
ped=ped)
Run the code above in your browser using DataLab