ber_from_hli.Rdcalculate the BER (kWh/m2/year) from HLI (W/Km2)
ber_from_hli(hli, tech, install_time, params)ber (kWh/m2/year)
#check reversibility
params <- scenario_params(sD,2026)
heat_loss_indicator(25,"heat_pump",2020,params)
#> [1] 0.4697255
ber_from_hli(1.21,"heat_pump",params$yeartime,params)
#> [1] 74.46507
ber_from_hli(1.2,"heat_pump",params$yeartime,params)
#> [1] 74.1637