Specify useful energy products
specify_useful_products.RdFinal-to-useful machines make useful energy products.
This function specifies those products
to include a [from X] suffix.
Usage
specify_useful_products(
.df,
product = MWTools::mw_cols$product,
stage = MWTools::mw_constants$stage_col,
species = MWTools::mw_constants$species,
useful = MWTools::all_stages$useful,
notation = RCLabels::from_notation
)Arguments
- .df
A data frame, usually the output of
MWTools::specify_primary_production().- product, stage, species
- useful
See
MWTools::all_stages.- notation
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)
hmw_df <- hmw_data %>%
calc_hmw_pfu()
amw_df <- amw_test_data_path() %>%
read.csv() %>%
calc_amw_pfu()
specify_energy_type_method(hmw_df, amw_df) %>%
specify_product() %>%
MWTools::specify_primary_production() %>%
specify_useful_products()
#> # A tibble: 4,440 × 10
#> Country Year Species Stage Sector Unit E.dot Energy.type Method Product
#> <chr> <dbl> <chr> <chr> <chr> <chr> <dbl> <chr> <chr> <chr>
#> 1 GBR 1960 Human fe… Final Agric… EJ 8.68e-4 E PCM Food
#> 2 GBR 1960 Human fe… Final Indus… EJ 1.54e-2 E PCM Food
#> 3 GBR 1960 Human fe… Final Servi… EJ 2.82e-2 E PCM Food
#> 4 GBR 1960 Human fe… Prim… Agric… EJ 1.40e-3 E PCM Biomass
#> 5 GBR 1960 Human fe… Prim… Indus… EJ 2.48e-2 E PCM Biomass
#> 6 GBR 1960 Human fe… Prim… Servi… EJ 4.55e-2 E PCM Biomass
#> 7 GBR 1960 Human ma… Final Agric… EJ 4.64e-3 E PCM Food
#> 8 GBR 1960 Human ma… Final Indus… EJ 5.69e-2 E PCM Food
#> 9 GBR 1960 Human ma… Final Servi… EJ 3.76e-2 E PCM Food
#> 10 GBR 1960 Human ma… Prim… Agric… EJ 7.49e-3 E PCM Biomass
#> # ℹ 4,430 more rows