TAPER.SEISN {RSEIS}

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 )

Arguments

TH

Seismic structure

sel

selection of traces

TAPER

filter taper, percent cosine taper

Details

Seismic structure

Value

Seismic structure

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

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)