Plot picks on seismic record

Share:

Description

Add lines at phase arrival times

Usage

1
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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
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'  )

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.