grant_eligibility

utility function to determine whether or which home energy efficiency grant scheme a homeowner is or was eligible
if is_fuel_allowance is TRUE ber_old > 150 to qualifify for WarmerHomes.
expressed in terms of ber_old and ber_new

grant_eligibility(
  ber_old,
  ber_new,
  construction_year,
  is_fuel_allowance = FALSE,
  params
)

Arguments

ber_old

old ber (double)

ber_new

new ber (double)

construction_year

construction year(integer)

is_fuel_allowance

fuel allowance qualification from (boolean)

params

used for yeartime to determine grant availability

Value

scheme one of "None", "WarmerHomes", "OSS", "BetterEner

Examples

params <- scenario_params(sD,2026)
grant_eligibility(175,100,2005,is_fuel_allowance=FALSE,scenario_params(sD,2026))
#> [1] "BetterEnergyHomes"
#no grants before 2015
grant_eligibility(175,20,1990,is_fuel_allowance=TRUE,scenario_params(sD,2005))
#> [1] "None"
#warmer homes
grant_eligibility(175,20,2005,is_fuel_allowance=TRUE,scenario_params(sD,2026))
#> [1] "OSS"
#newer house
grant_eligibility(175,175,2000,is_fuel_allowance=TRUE,scenario_params(sD,2026))
#> [1] "BetterEnergyHomes"