# NOT RUN {
s <- Sine(440,1,rate=44100)
rate(s) # 44100
play(s)
print(s)
rate(s) <- 8000
play(s) # s has worse quality now (noise and additional high frequencies)
print(s) # but uses less memory
# }
Run the code above in your browser using DataLab