seewave (version 1.6.3)

rugo: Rugosity of a time wave

Description

This function computes the rugosity of a time wave or time series

Usage

rugo(x, ...)

Value

• A vector of length 1.

Details

The formula has been slightly modified from Mezquida & Martinez (2009: 826) to fit with the classical definition of the root-mean-square (see rms). The rugosity is then computed as following: $$rugo = \sqrt{\sum_{i=1}^{n-1} \frac{(x_{i+1}-x_{i})^2}{n}}$$ for a vector x of length n.

References

Mezquida DA, Martinez JL (2009) - Platform for beehives monitoring based on sound Analysis. A perpetual warehouse for swarm's daily acitvity. Spanish Journal of Agricultural Research 7, 824-828.

See Also

roughness, rms, sh, th, H.

Examples

data(tico) ; tico <-tico@left
# rugosity of the original recording
rugo(tico/max(tico))
# add artificially some background noise
noise <- noisew(d=length(tico)/22050, f=22050)
ticon1 <- tico/max(tico) + 0.5*noise
# new rugosity (higher)
rugo(ticon1/max(ticon1))