data-raw/costs/levelize.R

In xavier-gutierrez/energy.markets:

calc.levelizedcosts <- function(capfactor, capcosts, map, fcr)
{
  # levelize capital costs
  levcst <- capfactor %>%
    inner_join(capcosts, by=c("yr", "overnightcategory")) %>% # attach overnight, om.var, om.fixed
    mutate(overnight.lev = fcr * (1000 * overnight) / (8760 * capacityfactor), # $/MWh
           om.fixed.lev = (1000 * om.fixed) / (8760 * capacityfactor)) %>%  # $/MWh
    select(yr, utilcode, plntcode, overnightcategory, fuel.general, overnight.lev, om.fixed.lev, om.var)

  levcst
}