Once the costs are specified in bsd, this function calculates the total annual budget for the breeding scheme Assumptions There is no QC genotyping in the population improvement cycle Variety candidates get QC genotyped at every stage Variety candidates get whole genome genotyped once at the first stage The number of plots in each trial is nEntries*nReps so the cost of the trial is nEntries*nReps*nLocs*plotCost

calcBudget(bsd)

Arguments

bsd

List of breeding scheme data

Value

Numeric vector with intermediate and total costs

Details

Call this function once costs have been specified

Examples

bsd$budgetVec <- calcBudget(bsd)
#> Error in calcBudget(bsd): object 'bsd' not found