Calculate the final energy consumed by human workers

...

Usage

calc_hmw_final_energy(
  .df,
  hmw_analysis_data_path = MWTools::hmw_analysis_data_path(),
  sector_col = MWTools::mw_constants$sector_col,
  year = MWTools::mw_cols$year,
  unit = MWTools::mw_cols$unit,
  exemplar_method_col = MWTools::mw_constants$exemplar_method_col,
  sex_ilo_col = MWTools::ilo_cols$sex_ilo_col,
  labor_type_col = MWTools::hmw_analysis_constants$labor_type_col,
  hmw_food_sheet = MWTools::hmw_analysis_constants$hmw_food_sheet,
  hmw_plate_waste_sheet = MWTools::hmw_analysis_constants$hmw_plate_waste_sheet,
  food_consumption_col = MWTools::hmw_analysis_constants$food_consumption_col,
  energy_pppa_col = MWTools::hmw_analysis_constants$energy_pppa_col,
  final_energy_col = MWTools::hmw_analysis_constants$final_energy_col,
  plate_waste_col = MWTools::hmw_analysis_constants$plate_waste_col,
  hmw_region_code_col = MWTools::conc_cols$hmw_region_code_col,
  kcal_to_mj = MWTools::unit_constants$kcal_to_mj,
  employed_persons_ilo_col = MWTools::ilo_cols$employed_persons_ilo_col
)

Arguments

.df

A data frame containing the number of hours worked by sector and activity level. Usually produced by calling the add_hmw_region_codes, fill_ilo_data, calc_total_hours_worked, get_broad.sector_data, and split_labor_by_sector functions in sequence on the raw FAO data.

hmw_analysis_data_path

See MWTools::hmw_analysis_data_path().

sector_col, year, unit

See MWTools::mw_constants.

exemplar_method_col

See MWTools::mw_sectors.

sex_ilo_col, employed_persons_ilo_col

See MWTools::ilo_cols

hmw_food_sheet, hmw_plate_waste_sheet, food_consumption_col, energy_pppa_col, final_energy_col, plate_waste_col, labor_type_col

See MWTools::hmw_analysis_constants.

hmw_region_code_col

See MWTools::conc_cols.

kcal_to_mj

See MWTools::unit_constants.

Examples

ilo_working_hours_data <- read.csv(file = MWTools::ilo_working_hours_test_data_path())
ilo_employment_data <- read.csv(file = MWTools::ilo_employment_test_data_path())
hmw_data <- prepareRawILOData(ilo_working_hours_data = ilo_working_hours_data,
                              ilo_employment_data = ilo_employment_data)
final_energy_data <- hmw_data |>
  add_hmw_region_codes() |>
  fill_ilo_data() |>
  calc_total_hours_worked() |>
  get_broad.sector_data() |>
  split_labor_by_sector() |>
  calc_hmw_final_energy()