if (FALSE) {
require(rgl)
data(tico)
phaseplot(tico)
}
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