data(pellucens)
# place the scale on the left and not on the right as spectro() does
def.par <- par(no.readonly = TRUE)
layout(matrix(c(2, 1), nc = 2), widths = c(1, 5))
par(mar=c(5,4,4,2))
spectro(pellucens, f=22050,wl=512,scale=FALSE)
par(mar=c(5,3,4,2))
dBscale(collevels=seq(-30,0,1),side=2)
par(def.par)
Run the code above in your browser using DataLab