RSEIS (version 4.0-3)

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 )

Arguments

TH

Seismic structure

sel

selection of traces

TAPER

filter taper, percent cosine taper

Value

Seismic structure

Details

Seismic structure

See Also

butfilt

Examples

# NOT RUN {

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)


# }