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")