# NOT RUN {
s = rnorm(100); plot(s, type = 'l')
s1 = soundgen:::downsample(s, srNew = 5, srOld = 18)
plot(s1, type = 'l', col = 'red')
plot(soundgen:::downsample(s, srNew = 5, srOld = 40), type = 'b')
# }
Run the code above in your browser using DataLab