## Plot event years from pointer.rgc output
data(s033)
py <- pointer.rgc(s033)
event.plot(py)
## Plot negative event years from pointer.norm output (method "Neuwirth") for a specific period
data(s033)
detr_s033 <- detrend(s033, method = "Spline", nyrs = 30)
pyn <- pointer.norm(detr_s033, method.thresh = "Neuwirth")
event.plot(pyn, sign = "neg", period = c(1950, 2007))
Run the code above in your browser using DataLab