calc_final_energy: Calculate the final energy metabolised by working animals

In EnergyEconomyDecoupling/MWTools: Functions For Calculation of Muscle Work Within the PSUT Framework

Calculate the final energy metabolised by working animals

Description

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()

EnergyEconomyDecoupling/MWTools documentation built on April 14, 2025, 9:27 a.m.