Commit c5b8330f authored by Matteo DE FELICE's avatar Matteo DE FELICE

Added normalised filling rate

parent 704f4bc0
...@@ -232,7 +232,6 @@ shinyServer(function(input, output, session) { ...@@ -232,7 +232,6 @@ shinyServer(function(input, output, session) {
mutate(day_of_the_year = yday(date)) %>% mutate(day_of_the_year = yday(date)) %>%
gather(area, generation, -date, -day_of_the_year) gather(area, generation, -date, -day_of_the_year)
res_normalised = res_zone %>% group_by(area) %>% mutate(max_level = max(level)) %>% ungroup() %>% mutate(norm_level = level / max_level) %>% select(date, day_of_the_year, area, norm_level) res_normalised = res_zone %>% group_by(area) %>% mutate(max_level = max(level)) %>% ungroup() %>% mutate(norm_level = level / max_level) %>% select(date, day_of_the_year, area, norm_level)
merged = inner_join( merged = inner_join(
...@@ -243,6 +242,7 @@ shinyServer(function(input, output, session) { ...@@ -243,6 +242,7 @@ shinyServer(function(input, output, session) {
spillage), spillage),
pumping), pumping),
res_normalised) %>% res_normalised) %>%
mutate(filling_rate = (inflow * 60 * 60 * 24 / 1e6) / level) %>%
gather(variable, output, -date, -day_of_the_year, -area) gather(variable, output, -date, -day_of_the_year, -area)
entsoe_data = entsoe_storage %>% entsoe_data = entsoe_storage %>%
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment