signal_taper {eseis}

Taper a signal vector.

Description

The function tapers a signal vector with a cosine bell taper, either of a given proportion or a discrete number of samples.

Usage

signal_taper(data, p = 0, n)

Arguments

data

eseis object, numeric vector or list of objects, data set to be processed.

p

Numeric value, proportion of the signal vector to be tapered. Alternative to n.

n

Numeric value, number of samples to be tapered at each end of the signal vector.

Value

Data frame, tapered signal vector.

Author(s)

Michael Dietze

Examples

## load example data set
data(rockfall)

## remove mean from data set
rockfall <- signal_demean(data = rockfall_eseis)

## create artefact at the beginning
rockfall_eseis$signal[1:100] <- runif(n = 100, min = -5000, max = 5000)

## taper signal
rockfall_taper <- signal_taper(data = rockfall, n = 1000)

## plot both data sets
plot_signal(data = rockfall_eseis)
plot_signal(rockfall_taper)