Implements Equation (1) of AMS-I.J by summing the useful thermal energy delivered by the solar water heating system.
calculate_useful_thermal_output(thermal_data, energy_col = "useful_heat_mwh", group_cols = NULL)
Arguments
- thermal_data
Tibble containing useful thermal energy observations.
- energy_col
Column name with useful thermal energy in MWhth.
- group_cols
Optional grouping columns used for aggregation.
Value
A tibble containing grouped useful thermal output in MWhth.
Examples
thermal <- tibble::tibble(site_id = c("A", "B"), useful_heat_mwh = c(420, 380))
calculate_useful_thermal_output(thermal)
#> # A tibble: 1 × 1
#> useful_thermal_output_mwh
#> <dbl>
#> 1 800