heat_pump_grant — heat_pump_grant • hpmicrosimr

heat pump grant, depending on grant_type and installation time (params$yeartime)

heat_pump_grant(
  installation_type,
  house_type,
  construction_year,
  grant_type,
  params
)

Arguments

installation_type: "swap" or "new"
house_type: house type
construction_year: year
grant_type: one of "None","BetterEnergyHomes","OSS","WarmerHomes"
params: current parameters

Value

grant amount in euros

Details

no grant applies of HLI is great than params$hli_heat_pump_threshold

for WarmerHomes, it is assumed that the grant covers heat pumps after 1 jan 2025 but not before.

Examples

params <- scenario_params(sD,2025)
heat_pump_grant("new","apartment",2003,"WarmerHomes",params)
#> [1] "cost"

heat_pump_grant("new","apartment",2003,"BetterEnergyHomes",params)
#> [1] 4500


heat_pump_grant("new","semi_detached",1997,"OSS",params)
#> [1] 8500
heat_pump_grant("new","semi_detached",1997,"BetterEnergyHomes",params)
#> [1] 6500
heat_pump_grant("new","semi_detached",1997,"none",params)
#> [1] 0
heat_pump_grant("new","detached",2003,"BetterEnergyHomes",params)
#> [1] 6500