# NOT RUN {
require(rgl)
data(tico)
phaseplot(tico)
# }
# NOT RUN {
s <- synth(d=0.05, f=44100, cf=440, out="Wave")
n <- noisew(d=0.05, f=44100, out="Wave")
par(mfrow=c(2,1))
phaseplot(s, dim=2)
phaseplot(n, dim=2)
# }
Run the code above in your browser using DataLab