RSEIS (version 3.7-4)

PLTpicks: 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

Value

Graphical Side Effects

Details

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

Examples

# NOT RUN {
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'  )

# }