repw: Repeat a time wave In seewave: Sound Analysis and Synthesis

Description

This function repeats a time wave

Usage

 `1` ```repw(wave, f, times = 2, join = FALSE, plot = FALSE, output= "matrix", ...) ```

Arguments

 `wave` an R object. `f` sampling frequency of `wave` (in Hz). Does not need to be specified if embedded in `wave`. `times` a numeric of length 1 describing the number of times the wave has to be repeated. `join` if `TRUE` the last point of `wave` will be removed for smoothing junction between repetitions. See examples. `plot` logical, if `TRUE` plots the repeated time wave. `output` character string, the class of the object to return, either `"matrix"`, `"Wave"`, `"Sample"`, `"audioSample"` or `"ts"`. `...` other `oscillo` graphical parameters.

Value

If `plot` is `FALSE`, a new wave is returned. The class of the returned object is set with the argument `output`.

Author(s)

Jerome Sueur [email protected]

`oscillo`, `addsilw`, `cutw`, `deletew`, `fadew`, `mutew`, `pastew`, `revw`, `zapsilw`
 ``` 1 2 3 4 5 6 7 8 9 10 11``` ```data(tico) repw(tico,f=22050,plot=TRUE) # use 'join' for smooth pasting par(mfrow=c(2,1)) a <- synth(cf=50, f=400, d=0.1) repw(a, f=400, plot=TRUE) title(main="join is FALSE") points(x=0.1, y=0, cex=2, col=2) repw(a, f=400, join=TRUE, plot=TRUE) title(main="join is TRUE") points(x=0.1, y=0, cex=2, col=2) ```