seewave (version 1.6.3)

timer: Time measurements of a time wave

Description

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

Usage

timer(wave, f, threshold = 5, envt="abs",
power = 1, msmooth = NULL, ksmooth = NULL,
ssmooth = NULL, plot = TRUE, plotthreshold = TRUE,
col = "black", colval = "red", 
xlab = "Time (s)", ylab = "Amplitude", ...)

Value

• A list containing six items:
• s
  duration of signal period(s) in seconds
• p
  duration of pause period(s) in seconds
• r
  ratio between the signal and silence periods(s)
• .
• positions
  a list containing four elements:
• s.start
  start position(s) of signal period(s)
• s.end
  end position(s) of signal period(s)

Warning

Setting to high values to msmooth or ssmooth might return unaccurate results. Double check you results if so.

See Also

env, cutw, pastew.

Examples

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