FILT.SEISN {RSEIS}

Filter Traces

Description

Filter Traces in a seismic structure

Usage

FILT.SEISN(TH, sel = 1:length(TH$JSTR),
FILT = list(ON = TRUE, fl = 0.5, fh = 7, type = "HP",
 proto = "BU", RM=FALSE, zp=TRUE ), TAPER = 0.1, POSTTAPER = 0.1, AUGMENT=FALSE)

Arguments

TH

Seismic structure

sel

selection of traces

FILT

filter definition

TAPER

filter taper

POSTTAPER

taper after filter

AUGMENT

Logical, FALSE

Details

RSEIS Seismic structure is filtered, trace by trace. If AUGMENT is TRUE, traces are augmented at beginning and end, filtered and then truncated to suppress edge effects. In that case no tapering is applied post fitler.

Value

RSEIS Seismic structure, traces are filtered and a proc is added to the trace history.

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

See Also

butfilt

Examples

##   Fdef = choosfilt()
Fdef  <-  list(ON=FALSE, fl=0.5, fh=7.0, type="BP", proto="BU", RM=FALSE, zp=TRUE )
data("GH")
sel <-  which(GH$COMPS=="V")

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