RSEIS (version 4.2-4)

TAPER.SEISN: Taper Traces

Description

Taper traces in a seismic structure using a cosine function on the ends.

Usage

TAPER.SEISN(TH, sel = 1:length(TH$JSTR),  TAPER = 0.1 )

Value

Seismic structure

Arguments

TH

Seismic structure

sel

selection of traces

TAPER

filter taper, percent cosine taper

Author

Jonathan M. Lees<jonathan.lees.edu>

Details

Seismic structure

See Also

butfilt

Examples

data("GH")
sel <-  which(GH$COMPS=="V")

sel  <-  1:3
 KF  <-  TAPER.SEISN(GH, sel = sel, TAPER=0.1)
swig(KF, sel=sel, SHOWONLY=0)