geno = rbind(c(2,2,0,2,0),
c(0,2,2,0,0))
colnames(geno) = 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 = importInbredGeno(geno=geno,
genMap=genMap,
ped=ped)
Run the code above in your browser using DataLab