data(pellucens)
f <- 22050
pellu2 <- cutw(pellucens,f,from=1.08,to=1.55,plot=FALSE)
pellu2.noam <- rmam(pellu2,f)
layout(matrix(1:4,nc=2,byrow=TRUE),height=c(3,1))
par(mar=c(0,5,2,1))
spectro(pellu2, f, palette=temp.colors, collevels=seq(-124,0,2), ovlp=75, scale=FALSE,	axisX=FALSE, main = "original", tlab = "", flab = "Frequency (kHz)")
par(mar=c(0,5,2,1))
spectro(pellu2.noam, f, palette=temp.colors, collevels=seq(-60,0,2), ovlp=75, scale=FALSE, axisX=FALSE, main = "amplitude modulations removed", tlab = "", flab = "Frequency (kHz)")
par(mar=c(5,5,0,1))
oscillo(pellu2, f, bty="o")
par(mar=c(5,5,0,1))
oscillo(pellu2.noam, f, bty="o")
Seewave-Example14