annualised_heating_system_cost — annualised_heating_system

The annualised heating cost or "equivalent annual cost" equal to the sum of annualised capital cost (calculated with Weibull survival) and operating cost.

annualised_heating_system_cost(
  hli,
  tech,
  installation_time,
  installation_type = "swap",
  floor_area,
  house_type,
  construction_year,
  params,
  grant_type,
  include_rebound = FALSE
)

Arguments

hli: heat loss indicator
tech: heating technology
installation_time: time heating system installed
installation_type: new or swap
floor_area: TFA
house_type: housing type (q1)
construction_year: year, integer
params: parameter values at yeartime
grant_type: one of "OSS","BetterEnergyHomes", "None"
include_rebound: default FALSE

Details

See annualised_capex for details of present bias assumptions

Examples

params <- scenario_params(sD,2025)
# theoretical cost without rebound
replicate(100,annualised_heating_system_cost(2.3,"heat_pump",params$yeartime,"new",100,"semi_detached",1997,grant_type="OSS",params)) %>% table()
#> .
#> 1756.89017227337 2134.48452857244 
#>               51               49 
# actual cost with rebound
annualised_heating_system_cost(2.4,"oil",2010,"new",100,"semi_detached",1997,grant_type="None",params)
#> [1] 2089.641
params$beta. <- 0.5
annualised_heating_system_cost(2.4,"heat_pump",2010,"new",100,"semi_detached",1997,grant_type="None",params)
#> [1] 3041.023
annualised_heating_system_cost(2.4,"oil",2010,"new",100,"semi_detached",1997,params,grant_type="BetterEnergyHomes")
#> [1] 2088.399