# NOT RUN {
alleles <- list(alleles = list(), counter = 1)
alleles <- assignAlleles(alleles, parentType = "sire", parent = NA,
id = "o1", n = 4)
alleles
alleles <- assignAlleles(alleles, parentType = "dam", parent = NA,
id = "o1", n = 4)
alleles
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab