popImprov2Cyc function

Function to improve a simulated breeding population by one cycle. This version does two cycles of predicting F1 individuals and making new F1s

popImprov2Cyc(records, bsp, SP)

Arguments

records	The breeding program records object. See fillPipeline for details
bsp	List of breeding scheme parameters
SP	The AlphaSimR SimParam object

Value

A records object with the F1 Pop-class object updated with new progeny coming out of a population improvement scheme

Details

This function uses penotypic records coming out of the product pipeline to choose individuals as parents to initiate the next breeding cycle

Examples

bsp <- specifyPipeline()
#> Error in if (bsp$nSNP + bsp$nQTL >= bsp$segSites) {    print("The number of segregating sites (segSites) has to be greater than the number of SNPs (nSNP) and the number of QTL (nQTL). segSites set 10% bigger than nSNP + nQTL")    bsp$segSites <- round((bsp$nSNP + bsp$nQTL) * 1.1) + 1}: argument is of length zero
bsp <- specifyPopulation(bsp)
#> Error in mget(setdiff(ls(), "bspNew")): object 'bsp' not found
initList <- initializeFunc(bsp)
#> Error in initializeFunc(bsp): could not find function "initializeFunc"
SP <- initList$SP
#> Error in eval(expr, envir, enclos): object 'initList' not found
bsp <- initList$bsp
#> Error in eval(expr, envir, enclos): object 'initList' not found
records <- initList$records
#> Error in eval(expr, envir, enclos): object 'initList' not found
records <- prodPipeSimp(records, bsp, SP)
#> Error in prodPipeSimp(records, bsp, SP): could not find function "prodPipeSimp"
records <- popImprov2Cyc(records, bsp, SP)
#> Error in popImprov2Cyc(records, bsp, SP): object 'bsp' not found