rsspec.taper {RSEIS}

Taper spectrum

Description

Taper function for spectrum analysis

Usage

rsspec.taper(x, p = 0.1)

Arguments

x

time series trace

p

percent taper

Details

Cosine taper at ends of trace.

Value

tapered trace is returned.

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

Examples

data(CE1)
Xamp <- CE1$y[CE1$x > 5.443754 & CE1$x<5.615951]
###  10% cosine taper:
xtap <- rsspec.taper(Xamp, p = 0.1)