data(cania.sub.ts)
cania.sub.ts <- set.plot.titles(cania.sub.ts,
title.elements = c("StationID", "StnName", "StateProv"))
res1 <- pk.cov(cania.sub.ts)
# trend and changepoint plot for baseflow peak start doy
res2 <- screen.metric(res1[,2], "Day of Year")
res2 <- screen.metric(res1[,2], "Day of Year", title = TRUE)
Run the code above in your browser using DataLab