Calculate the final energy metabolised by working animals

Calculate the final energy metabolised by working animals to perform muscle work. This function multiplies the number of working animals by sector, species, and country by their associated feed requirements, then corrects for feed wasted, and the gross energy to digestible energy ratio.

Usage

calc_final_energy(
  .df,
  trough_waste = 0.1,
  ge_de_ratio = 1.16363636363636,
  working_animals_total_col = MWTools::amw_analysis_constants$working_animals_total_col,
  working_animals_ag_col = MWTools::amw_analysis_constants$working_animals_ag_col,
  working_animals_tr_col = MWTools::amw_analysis_constants$working_animals_tr_col,
  total_yearly_feed_col = MWTools::amw_analysis_constants$total_yearly_feed_col,
  final_energy_total = MWTools::amw_analysis_constants$final_energy_total,
  final_energy_ag = MWTools::amw_analysis_constants$final_energy_ag,
  final_energy_tr = MWTools::amw_analysis_constants$final_energy_tr
)

Arguments

.df

A data frame containing the yearly feed requirements of working animals. Usually produced by calling the tidy_fao_live_animals, add_concordance_codes, trim_fao_data, get_working_species, calc_working_animals, calc_sector_split, and calc_yearly_feed functions in sequence on the raw FAO data.

trough_waste

The proportion of feed energy wasted when feeding working animals.

ge_de_ratio

The ratio between the gross energy content of the feed and digestible energy that is recovered from the feed.

working_animals_total_col, working_animals_ag_col, working_animals_tr_col, total_yearly_feed_col, final_energy_ag, final_energy_tr, final_energy_total

See MWTools::amw_analysis_constants.

Examples

working_animals_data <- read.csv(file = MWTools::amw_test_data_path()) %>%
  tidy_fao_live_animals() %>%
  add_concordance_codes() %>%
  trim_fao_data() %>%
  get_working_species() %>%
  calc_working_animals() %>%
  calc_sector_split() %>%
  calc_yearly_feed() %>%
  calc_final_energy()