Azure DevOps Demo Models · main

electricity_demand.R

energy/electricity-demand-forecast/src/electricity_demand.R · 311 bytes · read-only public source view

base_peak <- 21400
growth <- 0.016
electrification <- 0.008
weather <- 1.03
years <- 1:12
peak <- base_peak * ((1 + growth + electrification) ^ years) * weather
forecast <- data.frame(year=years, peak_demand_mw=peak, reserve_requirement_mw=peak*1.15)
write.csv(forecast, 'demand_forecast.csv', row.names=FALSE)