Plot PQ events
PlotEvents(tseries, eventTable)
Plot showing PQ events
## Not run: ------------------------------------ # data("SevernTS") # tableP <- FindPevents(SevernTS$P[1:100]) # tableQ <- FindQevents(Q = SevernTS$Q[1:100], # eventTableP = tableP, # hours2extend = 6) # # PlotEvents(tseries = SevernTS[1:100,], # eventTable = tableQ) ## ---------------------------------------------