data(GH)
m = match( GH$STNS, GH$stafile$name)
LATS = GH$stafile$lat[m]
LONS = GH$stafile$lon[m]
dees = distaz( GH$pickfile$LOC$lat, GH$pickfile$LOC$lon, LATS, LONS)
sel = which(GH$COMPS=="V")
sel = sel[order(dees$dist[sel])]
### plot normal way:
PICK.GEN(GH, sel=sel, WIN=c(5,10), SHOWONLY=TRUE)
### plot with varsquiggle
varsquiggle(GH, sel=sel, WIN=c(5,10))
Run the code above in your browser using DataLab