Computes total energy output from grain and straw/stover yields using crop-specific energy coefficients.

energy_output(
  grain_yield,
  straw_yield = 0,
  grain_energy_coeff = 14.7,
  straw_energy_coeff = 12.5,
  verbose = TRUE
)

Arguments

grain_yield

Numeric vector. Grain or economic yield (kg/ha).

straw_yield

Numeric vector. Straw, stover, or by-product yield (kg/ha). Default 0.

grain_energy_coeff

Numeric. Energy coefficient for grain (MJ/kg). Default 14.7 (wheat grain equivalent).

straw_energy_coeff

Numeric. Energy coefficient for straw (MJ/kg). Default 12.5 (wheat straw equivalent).

verbose

Logical. If TRUE, prints informational messages. Default TRUE.

Value

Numeric vector. Total energy output (MJ/ha).

Details

$$E_{out} = (Y_g \times C_g) + (Y_s \times C_s)$$ where Y_g and Y_s are grain and straw yields, and C_g and C_s are their respective energy coefficients.

References

Devasenapathy, P., Senthilkumar, G. & Shanmugam, P.M. (2009). Energy management in crop production. Indian Journal of Agronomy, 54(1), 80-90.

Examples

energy_output(grain_yield = 4500, straw_yield = 5500)
#> Energy output computed (MJ/ha).
#> [1] 134900
energy_output(grain_yield = 1500, straw_yield = 2000,
              grain_energy_coeff = 14.3, straw_energy_coeff = 12.5)
#> Energy output computed (MJ/ha).
#> [1] 46450