Plot picks on seismic record
Add lines at phase arrival times
PLTpicks(picks, labs = NA, cols = NA)
picks |
vector of times relative to the start of the plot |
labs |
labels for picks |
cols |
colors for picks |
picks = vector of times relative to the start of the plot (seismogram)
Graphical Side Effects
Jonathan M. Lees<jonathan.lees.edu>
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' )Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.