View source: R/mars_water_level_functions.R
marsInfiltrationRate_inhr | R Documentation |
Estimated infiltration rate based on observed data
marsInfiltrationRate_inhr(
event,
dtime_est,
rainfall_in,
dcia_ft2,
orifice_height_ft = NA,
orifice_diam_in = NA,
storage_depth_ft,
storage_vol_ft3,
waterlevel_ft,
depth_in = 6,
discharge_coeff = 0.62
)
event |
Rainfall event ID (grouping variable) |
dtime_est |
A vector of POSIXct date times, in ascending order |
rainfall_in |
Rainfall depths during periods corresponding to times in dtime_est (in) |
dcia_ft2 |
Directly connected impervious area (sf) |
orifice_height_ft |
Orifice height (ft) |
orifice_diam_in |
Orifice diameter (in) |
storage_depth_ft |
Maximum storage depth of system (ft) |
storage_vol_ft3 |
Maximum storage volume (pore space) of system, in cubic feet |
waterlevel_ft |
Observed water level data (ft) |
depth_in |
Depth at which to calculate infiltration rate (default 6in, which creates a range of 7in to 5in) |
discharge_coeff |
Orifice discharge coefficient (default 0.62) |
Output is estimated infiltration rate (in/hr). These outputs are codes for the following messages:
-900
Event does not include observation data that approximately equals specified water depth
-910
Code captures rising limb in event.
-920
Rainfall occurs during recession period in specified depth range.
-930
Infiltration rate is negligible; calculated infiltration rate is less than 0.1in/hr.
marsUnderdrainOutflow_cf
obs_250_fill %>%
dplyr::filter(is.na(event) == FALSE) %>%
dplyr::group_by(event) %>%
dplyr::arrange(dtime_est)%>%
dplyr::summarize( #Calculate performance metrics
#Observed infiltration rate
Infiltration_Rate_inhr = marsInfiltrationRate_inhr(event, dtime_est,
rainfall_in,
dcia_ft2,
storage_depth_ft = storage_depth_ft,
storage_vol_ft3 = storage_vol_ft3,
orifice_diam_in,
orifice_height_ft,
waterlevel_ft = level_ft))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.