Apply taper to seismic trace

Description

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

Usage

1
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

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

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.