# Get the mean flows for each month for the Thames at Kingston
QMonThames <- MonthlyStats(ThamesPQ[,c(1,3)], stat = mean,
ylab = "Discharge (m3/s)", main = "Thames at Kingston monthly mean flow")
# Get the monthly sums of rainfall for the Thames at Kingston
PMonThames <- MonthlyStats(ThamesPQ[,c(1,2)], stat = sum,
ylab = "Rainfall (mm)", main = "Thames as Kingston monthly rainfall")
Run the code above in your browser using DataLab