popImprov1Cyc function

Function to improve a simulated breeding population by one cycle. This version takes phenotyped individuals and crosses them to create new F1

popImprov1Cyc(records, bsp, SP)

Arguments

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

Value

A records object with a new F1 Pop-class object of 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 <- productPipeline(records, bsp, SP)
#> Error in productPipeline(records, bsp, SP): object 'records' not found
records <- popImprov1(records, bsp, SP)
#> Error in popImprov1(records, bsp, SP): could not find function "popImprov1"