gen_upgrade_cost_matrix.Rdgenerates an implied BER upgrade for given cost model params and house_type, region and floor area
gen_upgrade_cost_matrix(
house_type,
storeys,
region = "Dublin",
floor_area = 100,
params,
include_grant = FALSE
)matrix
params <- scenario_params(sD,2024)
#gen_upgrade_cost_matrix("semi_detached","Dublin",100,params,cost_model="power",FALSE)
#gen_upgrade_cost_matrix("semi_detached","Dublin",100,params,cost_model="esri",FALSE)
gen_upgrade_cost_matrix("semi_detached",2,"Dublin",100,params,FALSE)
#> # A tibble: 10 × 11
#> hli_old `5` `4.5` `4` `3.5` `3` `2.5` `2` `1.5` `1` `0.5`
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 5 0 2500. 5106. 8114. 12544. 21135. 37431. 60892. 87800. 115824.
#> 2 4.5 0 0 2606. 5614. 10044. 18636. 34932. 58392. 85300. 113324.
#> 3 4 0 0 0 3007. 7438. 16029. 32325. 55786. 82694. 110717.
#> 4 3.5 0 0 0 0 4431. 13022. 29318. 52778. 79686. 107710.
#> 5 3 0 0 0 0 0 8591. 24887. 48347. 75256. 103279.
#> 6 2.5 0 0 0 0 0 0 16296. 39756. 66665. 94688.
#> 7 2 0 0 0 0 0 0 0 23460. 50369. 78392.
#> 8 1.5 0 0 0 0 0 0 0 0 26908. 54932.
#> 9 1 0 0 0 0 0 0 0 0 0 28024.
#> 10 0.5 0 0 0 0 0 0 0 0 0 0