seewave (version 1.0)

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 = FALSE, plot = FALSE, marks = TRUE, ...)

Arguments

wave1

data describing the time wave to be pasted.

wave2

data describing the time wave into which wave1 will be pasted.

f

sampling frequency of both wave1 and wave2.

at

wave2 position in seconds where wave1 will be pasted into (by default at the end of wave2).

plot

logical, if TRUE returns an oscillographic plot of wave1, wave2 and wave1 + wave2 (by default FALSE).

marks

logical, if TRUE shows where wave1 has been pasted (by default TRUE).

...

other oscillo graphical parameters.

Value

• A one-column matrix describing a wave with the same sampling frequency as original data.

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

cutw, oscillo, timer.

Examples

data(tico)
# double a data set describing a bird song
a<-pastew(tico,tico,f=22050)
oscillo(a,f=22050,k=1,j=1)
# 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,plot=TRUE)
# or paste it at the end
pastew(tico,a,f=22050,plot=TRUE)
# similar to
pastew(a,tico,f=22050,at=nrow(tico)/22050,plot=TRUE)
# or paste it at a specific location
pastew(a,tico,f=22050,at=1.4,plot=TRUE)