glist <- multidog_to_g(
mout = ufit,
ploidy = 4,
type = "all_gl",
p1 = "indigocrisp",
p2 = "sweetcrisp")
g <- iterators::iter(glist$g, by = 3)
head(iterators::nextElem(g))
head(iterators::nextElem(g))
head(iterators::nextElem(g))
Run the code above in your browser using DataLab