seewave (version 1.6.4)

pastew: Paste a time wave to another one

Description

This function pastes a first time wave to a second one. The time wave to be pasted, the time wave to be completed and the resulting time wave can be displayed in a three-frame oscillographic plot.

Usage

pastew(wave1, wave2, f, at = "end", join = FALSE, choose = FALSE, plot = FALSE,
marks = TRUE, output = "matrix", ...)

Value

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

Details

If plot is TRUE returns a two-frame plot with three waves: (1) the wave to be pasted (wave1), (2) the wave to be completed (wave2), (3) the resulting wave.

See Also

oscillo, addsilw, cutw, deletew, fadew, mutew , revw, repw, zapsilw

Examples

data(tico)
# double a data set describing a bird song
a<-pastew(tico,tico,f=22050)
oscillo(a,f=22050)
# a direct way to see what has been pasted
pastew(tico,tico,f=22050,plot=TRUE)
# cut a section and then paste it at the beginning
a<-cutw(tico, f=22050, from=0.5, to=0.9)
pastew(a,tico,f=22050,at="start",plot=TRUE)
# or paste it at a specific location
pastew(a,tico,f=22050,at=1.4,plot=TRUE)
# setting the argument 'join' to TRUE might be useful
# to smooth pasting when some phase problem occur
# generate two sine waves
a <- synth(cf=50, f=400, d=0.1)
b <- synth(cf=100, f=400, d=0.1)
# paste it with 'join' turned to FALSE
# there is a click at the junction between the two waves
pastew(a, b, f=400, plot=TRUE)
# that can be removed by setting 'join' to TRUE
pastew(a, b, f=400, join=TRUE, plot=TRUE)