data(tico)
spec1 <- spec(tico, f=22050, at=0.2, plot=FALSE)
spec2 <- spec(tico, f=22050, at=1.1, plot=FALSE)
corspec(spec1, spec2, main="cross-correlation between two spectra")
Seewave-Example18