# Create some dummy data
flow <- c(177.685, 240.898, 221.954, 205.55, 383.051, 154.061, 216.582)
stage <- c(1.855, 2.109, 2.037, 1.972, 2.574, 1.748, 2.016)
observations <- data.frame(flow, stage)
# Apply the rating function
Rating(observations)
# Apply the rating function with the stage correction at zero
Rating(observations, a = 0)
Run the code above in your browser using DataLab