seewave (version 1.0)

timer: Time measurements of a time wave

Description

This functions computes and shows the duration of signal periods, pause periods and their ratio.

Usage

timer(wave, f, threshold, smooth = 0, plot = TRUE,
plotthreshold = TRUE, col = "black", colval = "red", 
xlab = "Time (s)", ylab = "Absolute amplitude", ...)

Arguments

wave

data describing a time wave.

f

sampling frequency of wave.

threshold

amplitude threshold for signal detection (in %).

smooth

smoothes the envelope by averaging the number of points selected

plot

logical, if TRUE plots the envelope and the measurements (by default TRUE).

plotthreshold

logical, if TRUE plots the threshold as an horizontal line on the graph (by default TRUE).

col

colour of the envelope.

colval

colour of plotted measurements.

xlab

title of the x-axis.

ylab

title of the y-axis.

...

other plot graphical parameters.

Value

• If plot is FALSE, timer returns a list containing three components:
• s
  duration of signal periods in seconds
• p
  duration of pause periods in seconds
• r
  ratio between the silence and periods
• .

See Also

oscillo, cutw, pastew.

Examples

data(tico)
timer(tico,f=22050,threshold=5,smooth=50)
# to compare with an oscillographic representation
data(orni)
op<-par(mfrow=c(2,1))
timer(orni,f=22050,threshold=5,smooth=40,tck=0.05,
        bty="l",xaxs="i",colval="blue")
title(main="A cicada song made of five echemes",col="blue")
oscillo(orni,f=22050,k=1,j=1)
par(op)