varsquiggle: Var-Squiggle Plot

In RSEIS: Seismic Time Series Analysis Tools

Var-Squiggle Plot

Description

Plot A seismic section using Var-Squiggle, like an exploration seismic record.

Usage

varsquiggle(GH, sel = c(1, 2), WIN = c(0, 1), dist=NULL, thick=1 ,
FLIP=FALSE, filcol='blue', tracecol='blue', xpd=TRUE, plotdir=1 )

Arguments

GH	Seismic List
sel	selection of seismic traces
WIN	time window
dist	distance from the source
thick	thickness of plotting region per trace
FLIP	logical, whether to plot vertical or horizontal, default FALSE, TRUE = vertical
filcol	color for shading
tracecol	color for trace
xpd	logical, set xpd parameter (see par)
plotdir	1=left to right, 0=right to left (default=1)

Details

Traces are plotted and scaled each with its own window. The distance vector provides the location on the seismic record.

Value

Graphical Side effects

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

matsquiggle, varsquig

Examples

data(GH)
m <- match( GH$STNS,    GH$stafile$name)
LATS <- GH$stafile$lat[m]
LONS <- GH$stafile$lon[m]
dees <- rdistaz( GH$pickfile$LOC$lat, GH$pickfile$LOC$lon, LATS, LONS)

sel <- which(GH$COMPS=="V")
sel <-  sel[order(dees$dist[sel])]

###  plot normal way:
swig(GH, sel=sel, WIN=c(5,10), SHOWONLY=TRUE)


###  plot with varsquiggle
varsquiggle(GH, sel=sel, WIN=c(5,10))

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.