Calculate the primary energy consumed by human workers

Usage

calc_hmw_primary_energy(
  .df,
  year = MWTools::mw_cols$year,
  unit = MWTools::mw_cols$unit,
  exemplar_method_col = MWTools::mw_constants$exemplar_method_col,
  hmw_analysis_data_path = MWTools::hmw_analysis_data_path(),
  hmw_harvest_waste_sheet = MWTools::hmw_analysis_constants$hmw_harvest_waste_sheet,
  final_energy_col = MWTools::hmw_analysis_constants$final_energy_col,
  primary_energy_col = MWTools::hmw_analysis_constants$primary_energy_col,
  hmw_harvest_waste_col = MWTools::hmw_analysis_constants$hmw_harvest_waste_col,
  hmw_region_code_col = MWTools::conc_cols$hmw_region_code_col
)

Arguments

.df: A data frame containing the final energy consumed by human workers. Usually produced by calling the add_hmw_region_codes, fill_ilo_data, calc_total_hours_worked, get_broad.sector_data, split_labor_by_sector, and calc_hmw_final_energy functions in sequence on the raw FAO data.
year, unit, exemplar_method_col: See MWTools::mw_constants.
hmw_analysis_data_path, hmw_harvest_waste_sheet, final_energy_col, primary_energy_col, hmw_harvest_waste_col: See MWTools::hmw_analysis_constants.
hmw_region_code_col: See MWTools::conc_cols.

Examples

primary_energy_data <- read.csv(file = MWTools::hmw_test_data_path()) %>%
  add_hmw_region_codes() %>%
  fill_ilo_data() %>%
  calc_total_hours_worked() %>%
  get_broad.sector_data() %>%
  split_labor_by_sector() %>%
  calc_hmw_final_energy() %>%
  calc_hmw_primary_energy()