Get channel volume ratios

Get channel volume ratios under sea level rise

get_ganges_SLR_ratios(SLR_m, control_volume = "channel")

Arguments

SLR_m	vector of sea level rise in meters
control_volume	set to "channel" or "gw"

Details

This function estimates the change in control volume storage relative to a baseline of 2010.

Examples

library(ggplot2)
channel_ratios <- get_ganges_SLR_ratios(SLR_m = seq(0,1,by = 0.05), "channel")
ggplot(channel_ratios) +
  geom_line(aes(SLR_m, R_E, color = "R_E")) +
  geom_line(aes(SLR_m, R_V, color = "R_V")) + ylab("Ratio")

gw_ratios <- get_ganges_SLR_ratios(SLR_m = seq(0,1,by = 0.05), "gw")
ggplot(gw_ratios) +
  geom_line(aes(SLR_m, R_E, color = "R_E")) +
  geom_line(aes(SLR_m, R_V, color = "R_V")) + ylab("Ratio")