data(tico)
oscillo(tico, f=22050)
par(new=TRUE)
env(tico, f=22050, msmooth=c(20,0), colwave=2)
legend("topleft", y=1,"smoothed envelope", col=2, lty=1, lwd=2, bty="n")