data(tico)
ifreq(tico, f=22050, threshold=6, col="darkviolet", main="Instantaneous frequency with Hilbert transform")