# NOT RUN {
data(ToyMap)
spc <- set_specie(ToyMap)
Aa <- founder(spc, "Aa")
aA <- spc$founder("aA")
Both <- list(Aa = Aa, aA = aA)
## different ways
genotype(Both) # as numeric
genotype(Both, phase = TRUE) # as character
# }
Run the code above in your browser using DataLab