Tidy a data frame containing primary, final, and useful energy data for working animals

Usage

tidy_pfu_data(
  .df,
  country_code_col = MWTools::conc_cols$country_code_col,
  country_col = MWTools::conc_cols$country_col,
  amw_region_code_col = MWTools::conc_cols$amw_region_code_col,
  year = MWTools::mw_cols$year,
  species = MWTools::mw_constants$species,
  sector_col = MWTools::mw_constants$sector_col,
  stage_col = MWTools::mw_constants$stage_col,
  energy_col = MWTools::mw_cols$e_dot,
  units_col = MWTools::mw_cols$unit,
  useful_energy_ag = MWTools::amw_analysis_constants$useful_energy_ag,
  useful_energy_tr = MWTools::amw_analysis_constants$useful_energy_tr,
  final_energy_ag = MWTools::amw_analysis_constants$final_energy_ag,
  final_energy_tr = MWTools::amw_analysis_constants$final_energy_tr,
  primary_energy_ag = MWTools::amw_analysis_constants$primary_energy_ag,
  primary_energy_tr = MWTools::amw_analysis_constants$primary_energy_tr,
  working_animals_ag_col = MWTools::amw_analysis_constants$working_animals_ag_col,
  working_animals_tr_col = MWTools::amw_analysis_constants$working_animals_tr_col
)

Arguments

.df: A data frame containing the primary, final, and useful energy associated with each working animal species. Usually produced by calling the 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(), calc_primary_energy(), and calc_useful_energy() functions in sequence on the raw FAO data.
country_code_col, country_col, amw_region_code_col: See MWTools::conc_cols.
year, species, sector_col, stage_col, energy_col, units_col: See MWTools::mw_constants.
useful_energy_ag, useful_energy_tr, final_energy_ag, final_energy_tr, primary_energy_ag, primary_energy_tr, working_animals_ag_col, working_animals_tr_col: 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() %>%
  calc_primary_energy() %>%
  calc_useful_energy() %>%
  tidy_pfu_data()