clickWave <- createClickWave(signalLength = .05, clickLength = 1000, clicksPerSecond = 200,
frequency = 3e3, sampleRate = 10e3)
wt <- wignerTransform(clickWave@left, n = 1000, sr = 10e3, plot=TRUE)
Run the code above in your browser using DataLab