data(peewit)
jet.colors <- colorRampPalette(c("white", "blue", "green"))
spectro(peewit, f=22050, ovlp=75, palette=jet.colors, collevels=seq(-45,0,0.5))