In rte-antares-rpackage/antaresWeeklyMargin: Setup an 'Antares' Study for Weekly Margin Simulation

# packages
library( antaresViz )
library( antaresWeeklyMargin )
library( data.table )
library( dygraphs )
library( magrittr )

# Parameters (dont edit here, but in header)
week <- params$week
n_scenario <- params$n_scenario
year_mc <- params$year_mc
date_study <- params$date_study
date_debut <- params$date_debut


# datas
load("datas/ml.rda")

Hypothesis

Load

draw_series(marges_up$margin_area, "LOAD")

51 Forecast scenarios Meteologica

Wind Production

draw_series(marges_up$margin_area, "WIND")

51 Forecast scenarios Meteologica

Solar Production

draw_series(marges_up$margin_area, "SOLAR")

51 Forecast scenarios Meteologica

Results : upward margins analysis

Initial Remaining Capacity - FR

draw_margins(data_margin = marges_up$margin_area_solo)

Legend:

• 1% of scenarii
• 4% of scenarii
• 10% of scenarii
• 50% of scenarii
• r n_scenario scenarii

Table of quantiles :

marg <- margins_quantiles(marges_up$margin_area_solo)
ft_margins_quantiles(marg, layout = "horizontal", language = "en")

Final Remaining Capacity - FR

draw_margins(data_margin = marges_up$margin_area_inter)

Legend:

• 1% of scenarii
• 4% of scenarii
• 10% of scenarii
• 50% of scenarii
• r n_scenario scenarii

Table of quantiles :

marg_i <- margins_quantiles(marges_up$margin_area_inter)
ft_margins_quantiles(marg_i, layout = "horizontal", language = "en")

Remaining Capacity Analysis - FR

draw_stack_hist(marges_up$margin_area_solo, marges_up$margin_area_inter, "fr")

Legend:

• available power in the country > needs
• imports are required
• power still available in the country, but final remaining capacity = 0
• imports are required & final remaining capacity = 0
• inadequacy

Results : downward margins analysis

Initial Remaining Capacity - FR

draw_margins(data_margin = marges_down$margin_area_solo)

Legend:

• 1% of scenarii
• 4% of scenarii
• 10% of scenarii
• 50% of scenarii
• r n_scenario scenarii

Table of quantiles :

marg <- margins_quantiles(marges_down$margin_area_solo, hours = c("04h", "16h"))
ft_margins_quantiles(marg, layout = "horizontal", language = "en")

Final Remaining Capacity - FR

draw_margins(data_margin = marges_down$margin_area_inter)

Legend:

• 1% of scenarii
• 4% of scenarii
• 10% of scenarii
• 50% of scenarii
• r n_scenario scenarii

Table of quantiles :

marg_i <- margins_quantiles(marges_down$margin_area_inter, hours = c("04h", "16h"))
ft_margins_quantiles(marg_i, layout = "horizontal", language = "en")

Detailed results : scenarii analysis

Distribution of border exchanges for France

draw_scenario(mono$scenarii, var_value = "flux_total", var_date = "time", h = 6000)

Imports / Exports

draw_mono(mono$mono_france)

Flux FR -> CW

draw_mono(mono$mono_cwe)

Example of scenario r year_mc

Analysis scenario r year_mc - Flows

antaresViz::exchangesStack(marges_all$links, area = "fr", interactive = FALSE)

Analysis scenario r year_mc - Production

draw_prod_MC(marges_up$margin_area, date_i = date_debut, mc_year = year_mc)#$widgets[[1]]$widget[[1]]

Analysis scenario r year_mc - Map

plotMap(
  x = marges_all, mapLayout = ml, interactive = FALSE,
  colLinkVar = "abs_loadFactor", sizeLinkVar = "FLOW LIN.",
  colAreaVar = "margin_inter", labelAreaVar = "margin_inter",
  options = plotMapOptions(
    areaDefaultSize = 50,
    areaColorScaleOpts = colorScaleOptions(
      breaks = c(-3000, 0, 0.1, 70000),
      colors = c("#ff0000", "#cd853f", "#008000", "#008000")
    ),
    linkColorScaleOpts = colorScaleOptions(
      breaks = c(0, 0.25, 0.5, 0.75, 0.999, 1),
      colors = c("#88cc8a","#a4ce3b","#ffff30", "#f49518", "#ff0000")
    )
  )
)

rte-antares-rpackage/antaresWeeklyMargin documentation built on July 25, 2019, 8:23 p.m.