Background

The Problem:

Energy Efficiency (EE) uses the Total Resource Cost (TRC) test to determine what EE resources to procure. TRC represents costs and benefits of EE projects to the Utility and Participant. Unfortunately, most Fuel-Substitution measures have very low TRC values under EE’s current Cost-Effectiveness framework which means Program Administrators struggle to implement them.

Research Question:

If EE factored Health Benefits into the TRC, how would this impact the TRC of Fuel-Sub projects? (Note: TRC currently does not consider health benefits because this is technically a societal costs. )

To explore this question, Calculate Gas Benefits with Utility Bill Savings, and Total Costs with Infrastructure Costs of the cooking Fuel-Sub Measures claimed in PG&E’s 2023 programs.

Inputs

#Selections
#MeasAppType <- 'NR'
ClimateZone <- 12
Measure <- 'SWAP013'  
EU <-'DEER:Res_ClothesDishWasher'
EUL <- 16 
BldgType <- 'SFm'
SZ <- 'med'


Asthma_CostRdxn_L <- 559 
Asthma_CostRdxn_H <- 2473


#Constants
PGE_WACC_A <- 0.0734 #Source:ACC, discount Rate
PGE_WACC_Q <- PGE_WACC_A/4
Divider_discount <- PGE_WACC_Q + 1

Benefits Analysis

Data Sources

The data inputs are shown below:

• Claims data was pulled from CEDARS in April 2024: https://cedars.sound-data.com/reports/download-record-level-report/claims/2023/

• Load Shapes profiles with Avoided Costs are from CEDARS: https://file.ac/l1-GqhWF8OU/

• Asthma Health Impacts Data is from internal ED Research by Will Graswich : https://capuc-my.sharepoint.com/:x:/g/personal/william_graswich_cpuc_ca_gov/EVUOWSSJx5RBqoxYI13AXqcB9qmt3i3NJ2PPPic6HkxsDQ?e=Kft0zt

The data from the online sources were truncated and renamed to simplify this analysis; the names of these files are listed below.

#Read in Fuel Sub Claims 2023 Q1-Q4
FS23_cooking <- read_excel("C:\\Users\\mmh\\R  Programming\\subtests\\FS_NewBens\\23_FS_Claims_Cooking.xlsx") #Normal Replacement Only (No New Construction)

#Read in Load Shapes (accessible at https://file.ac/l1-GqhWF8OU/)
Gas_LS_QRT <- read_excel("C:\\Users\\mmh\\R  Programming\\subtests\\FS_NewBens\\G_LS_QRT.xlsx") #Quarterly LS

Calculate Benefits: Gas Commodity, T&D, GHG, Asthma

Num_units<- c(sum(df_cooking$'Number of Units'))
Asthma_Bens_L <- Num_units * Asthma_CostRdxn_L
Asthma_Bens_H <- Num_units * Asthma_CostRdxn_H
#Read in Bill Impacts Data
Utility_Bill_Ben_CARE <- read_excel("C:\\Users\\mmh\\R  Programming\\subtests\\FS_NewBens\\data_TH\\res_bill_impacts_PGE_Monthly_CARE.xlsx")
Utility_Bill_Ben_Market <- read_excel("C:\\Users\\mmh\\R  Programming\\subtests\\FS_NewBens\\data_TH\\res_bill_impacts_PGE_Monthly_Market.xlsx")
Gas_Bens_Total_H <- Gas_Bens_Claims + Asthma_Bens_H
Gas_Bens_Total_L <- Gas_Bens_Claims  + Asthma_Bens_L

percent_inc_H <-  (Gas_Bens_Total_H - Gas_Bens_Claims)/Gas_Bens_Claims
percent_inc_L <-  (Gas_Bens_Total_L - Gas_Bens_Claims)/Gas_Bens_Claims

Calculate Costs

TRC_TotalCosts <- c(sum(df_cooking$`TRC Cost`))
# TRC_TotalCost_Bills <- TRC_TotalCosts + 







TRC_wHealth_H <- TRC_avebase + percent_inc_H*TRC_avebase
TRC_wHealth_L <- TRC_avebase + percent_inc_L*TRC_avebase


TRC_TotalCosts_M_H_Bill <-TRC_TotalCosts + Asthma_Bens_H
TRC_TotalCosts_M_L_Bill <-TRC_TotalCosts + Asthma_Bens_L

TRC_Bill_GasGHG_H <- TRC_wHealth_H + (TRC_wHealth_H*percent_inc_GasGHG)
TRC_Bill_GasGHG_L <- TRC_wHealth_L+ (TRC_wHealth_L*percent_inc_GasGHG)

#Table

TRC_IMPACT <- data.frame(
  Measure = c("Cooking Appliances, Residential, Fuel Substitution , SWAP013-03"),
  TRC_average = c(TRC_avebase),
  TRC_inc_Health_H = c(TRC_wHealth_H),
  TRC_inc_Health_L = c(TRC_wHealth_L),
  TRC_inc_GasGHG_Health_H = c(TRC_Bill_GasGHG_H ),
  TRC_inc_GasGHG_Health_L = c(TRC_Bill_GasGHG_L)
  
)
TRC_IMPACT$TRC_average<- sprintf("%.2f", TRC_IMPACT$TRC_average)
TRC_IMPACT$TRC_inc_Health_H<- sprintf("%.2f", TRC_IMPACT$TRC_inc_Health_H)
TRC_IMPACT$TRC_inc_Health_L<- sprintf("%.2f", TRC_IMPACT$TRC_inc_Health_L)
TRC_IMPACT$TRC_inc_GasGHG_Health_H <- sprintf("%.2f", TRC_IMPACT$TRC_inc_GasGHG_Health_H)
TRC_IMPACT$TRC_inc_GasGHG_Health_L <-sprintf("%.2f", TRC_IMPACT$TRC_inc_GasGHG_Health_L)
  
knitr::kable(TRC_IMPACT, caption = "Average Total Resource Costs (TRC) for Fuel-Sub Measures",
             col.names = c("Measure", "TRC Claims", "TRC Increased Health Impacts, High","TRC Increased Health Impacts, Low", "TRC Increased with Gas GHG Adder &  Health Impacts, High","TRC Increased with Gas GHG Adder & Health Impacts, Low" ))
Average Total Resource Costs (TRC) for Fuel-Sub Measures
Measure TRC Claims TRC Increased Health Impacts, High TRC Increased Health Impacts, Low TRC Increased with Gas GHG Adder & Health Impacts, High TRC Increased with Gas GHG Adder & Health Impacts, Low
Cooking Appliances, Residential, Fuel Substitution , SWAP013-03 0.12 1.47 0.42 2.50 0.72