expected_residual_lifetime_num.Rd
the expected remaining lifetime of a heating system given its age
expected_residual_lifetime_num(tech, system_age)
technology
system age
expected_residual_lifetime_num("heat_pump",20) #> [1] 4.142693