RSEIS (version 3.7-4)

rsspec.taper: Taper spectrum

Description

Taper function for spectrum analysis

Usage

rsspec.taper(x, p = 0.1)

Arguments

x

time series trace

p

percent taper

Value

tapered trace is returned.

Details

Cosine taper at ends of trace.

Examples

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


# }