data(tico)
env.tico <- env(tico, f=22050, plot=FALSE)
ifreq.tico <- ifreq(tico, f=22050, plot=FALSE)$f[,2]
# original signal with a +3000 Hz linear frequency shift
synth2(env=env.tico, ifreq=ifreq.tico*1000+3000, f=22050, plot=TRUE)