# NOT RUN {
# Run if HYDAT database has been downloaded (using tidyhydat::download_hydat())
if (file.exists(tidyhydat::hy_downloaded_db())) {
# Calculate screening statistics usinga data frame and data argument with defaults
flow_data <- tidyhydat::hy_daily_flows(station_number = "08NM116")
screen_flow_data(data = flow_data)
# Calculate screening statistics using station_number argument with defaults
screen_flow_data(station_number = "08NM116")
# Calculate screening statistics for water years starting in October
screen_flow_data(station_number = "08NM116",
water_year_start = 9)
# Calculate screening statistics for 7-day flows for July-September months only
screen_flow_data(station_number = "08NM116",
roll_days = 7,
months = 7:9)
}
# }
Run the code above in your browser using DataLab