oscilloEQ: Oscillogram 'equalizer'

In seewave: Sound Analysis and Synthesis

Oscillogram 'equalizer'

Description

A multipanel plot of a time wave displaying the oscillogram of a bank of frequency filters like in an 'equalizer'.

Usage

oscilloEQ(wave, f, channel = 1, flim = NULL, colwave = 1,
xlab = "Time (s)", ylab = "Frequency band (kHz)",
cexlab = 1, collab = 1, fontlab = 1,
savedir = ".", plot = TRUE, ...)

Arguments

wave	an R object.
f	sampling frequency of wave (in Hz). Does not need to be specified if embedded in wave.
channel	channel of the R object, by default left channel (1).
flim	a numeric vector giving the ordered limites of the frequency filters to be applied. By default, 1 kHz frequency filters.
colwave	colour of the oscillogram.
xlab	label of the x axis.
ylab	label of the y axis.
cexlab	character size for axes labels.
collab	color for axes labels.
fontlab	font for axes labels.
savedir	the path were the .wav files will be stored if plot is FALSE. By default, the working directory.
plot	a logical, if TRUE a plot is created, if FALSE then a series of .wav files are saved. Each file corresponds to a frequency band.
...	other oscillo graphical parameters.

Details

The function applies a bank of filters as delimited with the argument flim. If plot is TRUE, then the function displays the wave on a multiframe plot so that the time*amplitude dynamics of each frequency filter can be estimated. The filtered waves are generated using the function fir. If plot is FALSE, then the corresponding waves are saved as separated .wav file. Each file corresponds to a frequency filter.

Value

If plot is FALSE then a series of .wav files are saved. Each file corresponds to a frequency filter.

Author(s)

Jerome Sueur

See Also

oscillo, oscilloST

Examples

data(peewit)
## default 1 kHz frequency filter
oscilloEQ(peewit)
## change de frequency filter limits
oscilloEQ(peewit, flim=c(0, 4, 8, 10))
oscilloEQ(peewit, flim=seq(2, 10, by=0.5))
## play with colors
oscilloEQ(peewit, colwave=c(1,2))
oscilloEQ(peewit, colwave=heat.colors)
blue.gray  <- colorRampPalette(c("darkblue", "lightgrey"))
oscilloEQ(peewit, colwave=blue.gray)
## save files instead of visualizing them
## Not run: 
oscilloEQ(peewit, plot=FALSE)

## End(Not run)

seewave documentation built on Oct. 19, 2023, 5:07 p.m.