Commit 6f77608e authored by Bruno Bonte's avatar Bruno Bonte
Browse files

cleaning code

parent 6ddff4ef
......@@ -493,7 +493,8 @@ library(gridExtra)
filter(day > 150) %>%
mutate(cumWaterLoss = cumsum(waterLoss)) %>%
ggplot() +
geom_line(aes(x = day, y = waterLoss, color = "loss"))
geom_line(aes(x = day, y = waterLoss, color = "loss")) +
ggtitle("Hrus 548, 554, 567, 634, 696")
# geom_line(aes(x = day, y = - outWater, color = "outWater")) +
# geom_line(aes(x = day, y = deltaS, color = "deltaS")) +
# geom_line(aes(x = day, y = - etact, color = "et")) +
......
......@@ -199,7 +199,6 @@ j2kLocalWaterBalanceStorages <- function(ip="localhost", port="9999", selectedHr
}
j2kLocalWaterBalanceFlows <- function(ip="localhost", port="9999", selectedHrus, lastHru) {
#outflow = j2kGetValuesAllHrus(attributes =c("RD1OUT","RD2OUT","RG1OUT","RG2OUT"), ids = lastHru)
outflow = sum(j2kGetValuesAllHrus(attributes =c("RD1OUT","RD2OUT","RG1OUT","RG2OUT"), ids = lastHru) %>% select(-ID))
hrusInOut <-t(colSums(j2kGetValuesAllHrus(attributes =c("rain","snow","etact"), ids = selectedHrus) %>% select(-ID)))
return(data.frame(cbind(outflow,hrusInOut)))
......
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