retrofit_cost_model_power — retrofit_cost_model

A retrofit fit cost model based a power law dependence of marginal upgrade cost on BER on marginal cost function $$c_0 + \frac{k}{BER^\alpha}$$ so that the cost of upgrade from $BER_{old}$ to $BER_{new}$ is $$c_o(BER_{old}-BER{_new}) + \frac{k}{1-\alpha}\left(BER_{old}^{1-\alpha}-BER_{new}^{1-\alpha}\right)$$ The parameters $k$ and $\alpha$ are set in params

retrofit_cost_model_power(
  ber_old,
  ber_new,
  house_type,
  region = "Dublin",
  floor_area = 100,
  params
)

Arguments

ber_old: old ber kWh/m2
ber_new: new ber kWh/m2
house_type: seai house type
region: region
floor_area: total floor area in m2
params: current parameter values

Value

cost in euros

Details

Default fit is based on cost matrix in ber_upgrade_cost_matrix. Assumes a square root dependence of cost on floor area (economy of scale)

Examples


params <- scenario_params(sD,2018)
retrofit_cost_model_power(200,100,"semi_detached","Dublin",100,params)
#> [1] 22603.81

params <- scenario_params(sD,2024)
retrofit_cost_model_power(200,100,"semi_detached","Dublin",100,params)
#> [1] 24070