PLTpicks {RSEIS}

Plot picks on seismic record

Description

Add lines at phase arrival times

Usage

PLTpicks(picks, labs = NA, cols = NA)

Arguments

picks

vector of times relative to the start of the plot

labs

labels for picks

cols

colors for picks

Details

picks = vector of times relative to the start of the plot (seismogram)

Value

Graphical Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

Examples

ex  <-  seq(from=0, to=4*pi, length = 200)

y  <-  sin(ex)
picks = c(0.5*pi, 2.3*pi)
plot(ex, y, type='l')


PLTpicks(picks, labs =c("P","P")  , cols =c('red','green')  )

PLTpicks(picks+2, labs =c("S","PKIKP") , cols ='blue'  )