# Get an AMAX sample and plot
if (FALSE) {
am_27083 <- GetAM(27083)
ERPlot(am_27083$Flow)
}
# Get a pooled estimate of Lcv and LSkew to use with the GF argument
if (FALSE) {
QuickResults(GetCDs(27083), gauged = TRUE)
}
# Use the resulting Lcv, Lskew and QMED for the GF argument and change the title
if (FALSE) {
ERPlot(am_27083$Flow, main = "Site 27083 pooled comparison", GF = c(0.23, 0.17, 12))
}
Run the code above in your browser using DataLab