# NOT RUN {
x = nuclearPed(1)
m1 = marker(x, `2` = "1/2", alleles = 1:2, name = "m1")
m2 = marker(x, `3` = "2/2", alleles = 1:2, name = "m2")
x = setMarkers(x, list(m1, m2))
getGenotypes(x)
### A list of pedigrees
s = transferMarkers(x, singleton("s"))
peds = list(x, s)
getGenotypes(peds)
# }
Run the code above in your browser using DataLab