calc_working_animals: Calculate the number of working animals

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

Calculate the number of working animals

Description

Calculate the number of working animals using data for the number of live animals from the FAO, and user-supplied data for the proportion of working animals by region and year.

Usage

calc_working_animals(
  .df,
  amw_analysis_data_path = MWTools::amw_analysis_data_path(),
  year = MWTools::mw_cols$year,
  species = MWTools::mw_constants$species,
  concordance_species = MWTools::conc_cols$species,
  exemplar_method_col = MWTools::mw_constants$exemplar_method_col,
  prop_working_animals_col = MWTools::amw_analysis_constants$prop_working_animals_col,
  wa_perc_sheet = MWTools::amw_analysis_constants$wa_perc_sheet,
  working_animals_total_col = MWTools::amw_analysis_constants$working_animals_total_col,
  live_animals_col = MWTools::amw_analysis_constants$live_animals_col,
  amw_region_code_col = MWTools::conc_cols$amw_region_code_col,
  amw_region_col = MWTools::amw_analysis_constants$amw_region_col
)

Arguments

.df	A data frame containing the number of live animals for working species. Usually produced by calling the tidy_fao_live_animals, add_concordance_codes, trim_fao_data, and get_working_species functions in sequence on the raw FAO data.
amw_analysis_data_path	The path to the animal muscle work analysis data, containing data for the proportion of working animals by species, country, and over time. Set to the function MWTools::amw_analysis_data_path(), by default, which returns the path the analysis data bundled with the MWTools package.
year, species, exemplar_method_col	See MWTools::mw_constants.
concordance_species	See MWTools::conc_cols.
prop_working_animals_col, wa_perc_sheet, working_animals_total_col, live_animals_col, amw_region_col	See MWTools::amw_analysis_constants.
amw_region_code_col	See MWTools::conc_cols.

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

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