data(caniapiscau)
cania.ts <- create.ts(caniapiscau, hyrstart = 4)
cania.ts <- drop.years(cania.ts)
cania.ts <- set.plot.titles(cania.ts,
title.elements = c("StationID", "StnName", "StateProv"))
res1 <- pk.bf.stats(cania.ts)
# trend and changepoint plot for baseflow peak start doy
res2 <- screen.metric(res1[,1], ylabel = "Day of Year")
Run the code above in your browser using DataLab