annualised_capex

Current equivalent annualised cost of a home heating system installed at installation_time.
this function uses a capital reduction factor with with a technology specific Weibull survival function. The annualised capex falls when the system age exceeds the expected lifetime. This corresponds to the intuition that older systems that continue to operate are "free".
The discount rate set from calibration (params$r.). A present bias (above a capex threshold) params$beta. is included.

annualised_capex(
  tech,
  kW,
  installation_time,
  installation_type,
  house_type,
  construction_year,
  params,
  grant_type
)

Arguments

tech

heating technology

kW

system capacity

installation_time

time of installation - different from params$yeartime

installation_type

"new" or "swap"

house_type

seai house type

construction_year

year, integer

params

time of interest or current time

grant_type

grant type

Value

euro amount

Examples

 sapply(2010:2040, function(y) annualised_capex("heat_pump",18,2010,"swap","detached",2003,scenario_params(sD,y),"WarmerHomes"))
#>  [1] 2554.36450 2558.03749 2558.37281 2553.14890 2540.19133 2517.42969
#>  [7] 2485.35650 2442.19136 2384.15810 2310.35017 2220.39928 2114.55048
#> [13] 1993.71016 1859.45782 1714.01425 1560.16248 1398.53243 1233.53277
#> [19] 1071.60095  916.10138  770.02694  635.83465  515.32640  409.58558
#> [25]  318.97392  243.18581  181.35025  132.16591   94.05168   65.29563
#> [31]   44.18723
params <- scenario_params(sD,2026)
replicate(100,annualised_capex("heat_pump",13,params$yeartime,"new","detached",2003,params,"None")) %>% table()
#> .
#> 2951.33889096221 
#>              100 
params$beta. <- 0.5
annualised_capex("gas",8,params$yeartime,"new","detached",2003,params,"None")
#> [1] 270.0589
annualised_capex("heat_pump",8,params$yeartime,"new","detached",2003,params,"BetterEnergyHomes")
#> [1] 799.0245