applytaper {RSEIS}

Apply taper to seismic trace

Description

Apply taper to ends of a time series for spectrum analysis.

Usage

applytaper(f, p = 0.05)

Arguments

f

signal

p

percent taper

Details

10 percent taper is 5 percent on each end.

Value

Tapered time series.

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

Examples

data(CE1)
Xamp  <-  CE1$y[CE1$x>5.443754 & CE1$x<5.615951]
Tamp  <-  applytaper(Xamp, p = 0.05)