# want to have a sine with linear increase in frequency, ie # freq f(t) = r*t # this is acheived by sin(g(t)) where # g(t) = 2*pi* integral(r*t) = pi*r*t^2 library(tuneR) # need to like with the sound library sr = 32000 # sampling rate bits = 16 # bit depth secs = 15 rate = 4000 # change in freq per second t = seq(0,secs,1/sr) y = sin(pi*rate*t^2); u = Wave(2^(bits-4)*y, samp.rate = sr, bit=bits) play(u,"play") # play it