Fuel-Substitution Cost Effectiveness Analysis, with GHG Adder, HVAC and DHWHeat Pump Measures

Background

Research Question:

CEC is interested to know how IRA incentives can improve TRC for electrification measures.

Inputs

#Selections
MeasAppType <- 'NR'
BldgType <- 'SFm'
ClimateZone <- 12
HeatPumpHVAC_res <- 'SWHC045'  
HPWH_res <- 'SWWH025'
CEC_Ben <- 2000 #Non- LI is 2000, LI is 4000

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/

• IRA savings were provided from the CEC

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 <- read_excel("C:\\Users\\mmh\\R  Programming\\subtests\\FS_NewBens\\23_FS_Claims_PGE.xlsx") 

Calculate Benefits

#IRA Benefits
Num_Measures <- FS23 %>% count(MeasureID)
Num_HPWH <- filter(Num_Measures, MeasureID == HPWH_res ) 
Num_HVAC <- filter(Num_Measures, MeasureID == HeatPumpHVAC_res )

## [1] "Number of claims for HPWH projects"

## [1] 299

## [1] "Number of claims for HP HVAC projects"

## [1] 515

CEC_Ben_HPHVAC <- Num_HVAC$n * CEC_Ben
CEC_Ben_HPWH <- Num_HPWH$n * CEC_Ben

Claims_GasBen_HeatPumpHVAC<- c(sum(df_HeatPumpHVAC$`Gas Benefits`))
Claims_GasBen_HPWH<- c(sum(df_HPWH$`Gas Benefits`))

CECImpact_HVAC<- (CEC_Ben_HPHVAC)/Claims_GasBen_HeatPumpHVAC
CECImpact_HPWH<- (CEC_Ben_HPWH)/Claims_GasBen_HPWH

#Gas Benefits Claimed

## [1] "CECImpact_HVAC %"

## [1] "90%"

## [1] "CECImpact_HPWH %"

## [1] "210%"

Total Benefits for Fuel Sub Measure Claims

Measure	Gas Benefits	IRA Savings
HVAC Heat Pump	$1,146,105	$1,030,000
Heat Pump Water Heater	$285,403	$598,000

Results:

#TRC with CEC Impacts

TRC_CEC_HPHVAC <- TRC_Claims_HP_HVAC * (1+ CECImpact_HVAC)
TRC_CEC_HPWH <- TRC_Claims_HPWH  * (1+ CECImpact_HPWH)

Average Cost-Effectiveness

Measure	TRC, 2023 Claims	TRC, Increased from CEC Funds
HVAC Heat Pump	0.77	1.47
Heat Pump Water Heater	0.40	1.23

## Warning: package 'openxlsx' was built under R version 4.2.3

## Warning in file.create(to[okay]): cannot create file 'C:\Users\mmh\R
## Programming\subtests\FS_NewBens\FS23out.xlsx', reason 'Permission denied'