data(orni)
timer(orni, f=22050, threshold=5, msmooth=c(40,0), bty="l", colval="blue")
seewave_Example4