applicability_iih.RdHelpers that verify the key applicability conditions for AMS-II.H projects, including centralization scope, monitoring completeness, and efficiency improvement requirements.
check_applicability_centralization_scope_iih(
baseline_summary,
project_summary,
utility_col = "utility_service",
baseline_unit_col = "baseline_unit_count",
project_unit_col = "project_unit_count"
)
check_applicability_monitoring_iih(
monitoring_data,
required_cols = c(
"baseline_fuel_use_gj",
"baseline_emission_factor_tco2_per_gj",
"project_fuel_use_gj",
"project_emission_factor_tco2_per_gj"
)
)
check_applicability_efficiency_improvement_iih(
baseline_data,
project_data,
group_cols = NULL,
baseline_fuel_col = "baseline_fuel_use_gj",
baseline_output_col = "baseline_useful_output_gj",
project_fuel_col = "project_fuel_use_gj",
project_output_col = "project_useful_output_gj",
minimum_improvement = 0.05
)Tibble describing the decentralized baseline system.
Tibble describing the centralized project system.
Column identifying the utility service.
Column storing the number of decentralized units in the baseline.
Column storing the number of centralized units in the project scenario.
Tibble containing combined baseline and project monitoring data.
Character vector of columns that must exist with no missing values.
Tibble containing baseline monitoring data.
Tibble containing project monitoring data.
Optional character vector of grouping columns shared across the datasets.
Column storing baseline fuel use (GJ).
Column storing baseline useful output (GJ).
Column storing project fuel use (GJ).
Column storing project useful output (GJ).
Minimum fractional improvement required for applicability.
Logical scalars indicating whether each applicability criterion is satisfied.
baseline <- tibble::tibble(
utility_service = c("steam", "hot_water"),
baseline_unit_count = c(4, 3)
)
project <- tibble::tibble(
utility_service = c("steam", "hot_water"),
project_unit_count = c(1, 1)
)
check_applicability_centralization_scope_iih(baseline, project)
#> [1] TRUE
monitoring <- tibble::tibble(
baseline_fuel_use_gj = 4200,
baseline_emission_factor_tco2_per_gj = 0.071,
project_fuel_use_gj = 3000,
project_emission_factor_tco2_per_gj = 0.068
)
check_applicability_monitoring_iih(monitoring)
#> [1] TRUE
efficiency <- check_applicability_efficiency_improvement_iih(
baseline_data = tibble::tibble(
facility = c("A", "B"),
baseline_fuel_use_gj = c(4200, 3150),
baseline_useful_output_gj = c(3600, 2700)
),
project_data = tibble::tibble(
facility = c("A", "B"),
project_fuel_use_gj = c(3000, 2250),
project_useful_output_gj = c(2880, 2160)
),
group_cols = "facility",
minimum_improvement = 0.05
)