Combine MCS of emissions from Reference and monitoring period into emission reductions

Depending on how the period is defined and if the data are annualized or not, calculate the Emission Level for a reference or monitoring period for each simulation.

Usage

fct_combine_mcs_ER(.sim_ref, .sim_mon, .ad_annual)

Arguments

.sim_ref: simulation aggregated to reference period, output from fct_combine_mcs_P()
.sim_mon: simulation aggregated to monitoring period(s), output from fct_combine_mcs_P()
.ad_annual: TRUE or FALSE, is the activity data annualized or not.

Value

A tibble with simulations at the final estimate per type of period.

Examples

path <- system.file("extdata/mocaredd-templatev2-simple.xlsx", package = "mocaredd")

checked <- fct_checkinput(.path = path)
#> Loading data... - progress: 0%.
#> ✓ Tables loaded successfully from template v2
#> Checking column names... - progress: 14%.
#> ✓ Column names: all required columns present
#> Checking table dimensions... - progress: 29%.
#> ✓ Table sizes: all tables have sufficient rows
#> Checking column data types... - progress: 43%.
#> ✓ Data types: all columns have correct data types
#> Checking category values... - progress: 57%.
#> ✓ Category values: all categories are valid
#> Checking unique IDs... - progress: 71%.
#> ✓ Unique IDs: no duplicates or missing IDs found
#> Checking cross-table and intra_table consistency... - progress: 86%.
#> ✓ Cross-table consistency: all references match
#> -- All checks passed.

sim_trans <- fct_combine_mcs_E(.checked_data = checked)

sim_REF <- fct_combine_mcs_P(.data = sim_trans, .period_type = "REF")

sim_MON <- fct_combine_mcs_P(.data = sim_trans, .period_type = "MON")

## !!! SIM MON and ER to be done